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

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
'..................................... дальше всё без изменений