Анимация VB

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

Создать проект, движение шарика по окружности, оставляя за собой след. Сделать нужно через Timer, желательно с инструкциями.

Решение задачи: «Анимация VB»

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

                            Const p As Single = (3.14 * 2) / 360 ' для перевода градусов в радианы
 
Private Sub Form_Load()
      Picture1.Scale (-10, -10)-(10, 10): Picture1.FillStyle = 0: Picture1.AutoRedraw = True: Picture1.BackColor = vbWhite:
End Sub
 
Private Sub TimerMove_Timer()
      Static Grad As Single, i As Single, c As Long
      If Grad < 360 Then Grad = Grad + 1 Else Grad = 0
      
      For i = 255 To 1 Step -2
          c = RGB(255, i, i): Picture1.FillColor = c
           Picture1.Circle (Cos(p * (Grad - i)) * 7, Sin(p * (Grad - i)) * 7), 1, c
      Next i
      
      For i = 255 To 1 Step -10
          c = RGB(255, 255 - i, 255 - i): Picture1.FillColor = c
          Picture1.Circle (Cos(p * (Grad)) * 7, Sin(p * (Grad)) * 7), i / 255, c
      Next i
End Sub
                        