Анимация VB

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

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 = 255 ' vbWhite:
End Sub
 
Private Sub TimerMove_Timer()
      Static Grad As Single
      Dim i As Single, c As Long
      If Grad < 360 Then Grad = Grad - 1 Else Grad = 0
       For i = 1 To 180 Step 1
             c = RGB(255, 255 - i, 255 - i): Picture1.FillColor = c
             Picture1.Circle (Cos(p * (Grad - i + 180)) * 7, Sin(p * (Grad - i + 180)) * 7), 1.9, c
             c = RGB(255 - i, 255 - i, 255): Picture1.FillColor = c
             Picture1.Circle (Cos(p * (Grad - i)) * 7, Sin(p * (Grad - i)) * 7), 1.9, c
      Next i
      For i = 255 To 1 Step -10
             c = RGB(255 - i, 255 - i, 255): Picture1.FillColor = c
             Picture1.Circle (Cos(p * (Grad)) * 7, Sin(p * (Grad)) * 7), i / 255, c
             c = RGB(255, 255 - i, 255 - i): Picture1.FillColor = c
             Picture1.Circle (Cos(p * (Grad + 180)) * 7, Sin(p * (Grad + 180)) * 7), i / 255, c
      Next i
End Sub