Перемещение объекта в 3D пространстве

Dim X As Long
Dim Y As Long
Dim R As Long
Dim c As Long
Const pi = 3.1415926
 
Function draw()
Cls
R = 500
For i = 0 To 5
x1 = X + R * Cos(i * pi / 3)
y1 = Y + R * Sin(i * pi / 3)
x2 = X + R * Cos((i + 1) * pi / 3)
y2 = Y + R * Sin((i + 1) * pi / 3)
Line (x1, y1)-(x2, y2), c
Next i
End Function
 
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Cls
Select Case KeyCode
Case 49
c = RGB(255, 255, 255)
Case 50
c = RGB(0, 200, 255)
Case 51
c = RGB(255, 0, 0)
Case 52
c = RGB(0, 255, 0)
Case 53
c = RGB(0, 0, 255)
Case 54
c = RGB(0, 255, 255)
Case 55
c = RGB(255, 0, 255)
Case 56
c = RGB(255, 255, 0)
Case 57
c = RGB(200, 0, 0)
Case 58
c = RGB(0, 200, 0)
Case 37
If X > R + 300 Then
Circle (X, Y), R, Form1.BackColor
X = X - 300
End If
Case 40
If Y + 300 < Form1.Height - (2 * R + 300) Then
Circle (X, Y), R, Form1.BackColor
Y = Y + 300
End If
Case 38
If Y > (R + 300) Then
Circle (X, Y), R, Form1.BackColor
Y = Y - 300
End If
Case 39
If X < Form1.Width - (R + 300) Then
Circle (X, Y), R, Form1.BackColor
X = X + 300
End If
End Select
Call draw
End Sub
 
Private Sub Form_Load()
AutoRedraw = True
DrawStyle = 0
DrawWidth = 1
X = ScaleWidth / 2
Y = ScaleHeight / 2
Call draw
End Sub

Dim X, Y, R, c As Long
Dim R1 As Long ' сдесь добавили переменную R1
Const pi = 3.1415926
 
Function draw()
Cls
R = 500 + R1 'здесь прописали что R будет считаться с учётом R1 
For i = 0 To 5
X1 = X + R * Cos(i * pi / 3)
Y1 = Y + R * Sin(i * pi / 3)
X2 = X + R * Cos((i + 1) * pi / 3)
Y2 = Y + R * Sin((i + 1) * pi / 3)
Line (X1, Y1)-(X2, Y2), c
Next i
End Function
 
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Cls
Select Case KeyCode
Case 49 
'здесь я забил на клавиши "1" и "2" увеличение и уменьшение R1 (ты поставишь это на свои клавиши)
'c = RGB(255, 255, 255)
R1 = R1 + 10
Case 50
'c = RGB(0, 200, 255)
R1 = R1 - 10
'..................................... дальше всё без изменений