' Controls: 1 Timer-Control, 1 Image-Control mit Bild.
Option Explicit
 
Private Pi!, Wnk1!, Wnk2!
 
Private Sub Form_Load()
  Me.ScaleMode = vbPixels
  Pi = Atn(1) * 4
  Wnk1 = 5 / 4 * Pi 'Startwinkel
  Wnk2 = 7 / 4 * Pi ' Zielwinkel
  Me.AutoRedraw = True
  Timer1.Interval = 20
  Timer1.Enabled = True
End Sub
 
Private Sub Timer1_Timer()
  Dim XPos!, YPos!, Rad1!
  Rad1 = 200
  XPos = Me.ScaleWidth \ 2 + Rad1 * Cos(Wnk1)
  YPos = Me.ScaleHeight \ 2 - Rad1 * Sin(Wnk1)
  Me.PSet (XPos, YPos), vbBlack
  Image1.Move XPos, YPos
  Wnk1 = Wnk1 + 0.01 ' Schrittweite
  If Wnk1 > Wnk2 Then Timer1.Enabled = False
End Sub

Gruss,

Zardoz