' Controls: 1 * Label, 1 * Timer
Private Pi!
 
Private Sub Form_Load()
 
  Me.ScaleMode = vbPixels
  Label1.BackColor = vbYellow
  Pi = 4 * Atn(1)
  Timer1.Interval = 20
  Timer1.Enabled = True
 
End Sub
 
Private Sub Timer1_Timer()
 
  Static Pos1&
  Dim XPos!, YPos!, Rad!, Wnk!
 
  Rad = 80
  Wnk = Pi / 180 * Pos1
  XPos = Me.ScaleWidth / 2 + Rad * Cos(Wnk)
  YPos = Me.ScaleHeight / 2 + Rad * Sin(Wnk)
  Label1.Move XPos, YPos
  Pos1 = (Pos1 + 3) Mod 360
 
End Sub

Gruss,

Zardoz