' Controls: 1 * Picturebox, 1 * Timer-Control, 1 * Image-Control mit Bild.
Option Explicit
 
Private Pi!, Wnk1!, Wnk2!
 
Private Sub Form_Load()
  Pi = Atn(1) * 4
  Wnk1 = 5 / 4 * Pi 'Startwinkel
  Wnk2 = 7 / 4 * Pi ' Zielwinkel
  Picture1.Scale (-50, -50)-(50, 50)
  Picture1.AutoRedraw = True
  Picture1.Line (-50, 0)-(50, 0), vbBlue
  Picture1.Line (0, 50)-(0, -50), vbBlue
  Set Image1.Container = Picture1
  Timer1.Interval = 20
  Timer1.Enabled = True
End Sub
 
Private Sub Timer1_Timer()
  Dim XPos!, YPos!, Rad1!
  Rad1 = 40
  XPos = Rad1 * Cos(Wnk1)
  YPos = -Rad1 * Sin(Wnk1)
  Image1.Move XPos, YPos
  Wnk1 = Wnk1 + 0.01 ' Schrittweite
  If Wnk1 > Wnk2 Then Timer1.Enabled = False
End Sub

Gruss,

Zardoz