Программа должна рисовать шестиугольник, менять цвета - VB

Формулировка задачи:

Прога должна рисовать шестиугольник менять цвета и перемещаться стрелками рисует,но не меняет цвета и не перемещается

Public x1 As Long
Public y1 As Long
Public x2 As Long
Public y2 As Long
Public B As Long
Public x As Long
Public y As Long
Public R As Long
Public c As Long
Const pi = 3.1415926

Private Sub Form_Load()

Dim CX As Single, CY As Single, R As Single
Dim x1 As Single, y1 As Single, x2 As Single, y2 As Single, i As Long
Cls
AutoRedraw = True
DrawStyle = 0
DrawWidth = 1
 CX = ScaleWidth / 2
  CY = ScaleHeight / 2
  R = (CY + CX) / 4
  For i = 0 To 5
    x1 = CX + R * Cos(i * pi / 3)
    y1 = CY + R * Sin(i * pi / 3)
    x2 = CX + R * Cos((i + 1) * pi / 3)
    y2 = CY + R * Sin((i + 1) * pi / 3)
    Line (x1, y1)-(x2, y2)
  Next i
  End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Cls
Select Case KeyCode
 
Case 112
    c = RGB(255, 255, 255)
Case 113
    c = RGB(0, 200, 255)
Case 114
    c = RGB(255, 0, 0)
Case 115
    c = RGB(0, 255, 0)      '
Case 116
    c = RGB(0, 0, 255)
Case 117
    c = RGB(0, 255, 255)
Case 118
    c = RGB(255, 0, 255)
Case 119
    c = RGB(255, 255, 0)
Case 120
    c = RGB(200, 0, 0)
Case 121
    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
Line (x1, y1)-(x2, y2), , B
End Sub

кто ,что посоветует сделать?

Решение задачи: «Программа должна рисовать шестиугольник, менять цвета»

textual
                            Листинг программы 
                        

                            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
                        