Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds&)
 
Private Sub Form_Activate()
 
  Dim i&, Pi!, Wnk!
 
  Pi = 4 * Atn(1)
  With Me
    .ScaleMode = vbPixels
    .AutoRedraw = True
    .DrawWidth = 3
    For i = 0 To 360
      Wnk = i / 180 * Pi
      .Cls
      Me.Line (.ScaleWidth / 2, .ScaleHeight / 2)- _
        Step(100 * Cos(Wnk), 100 * -Sin(Wnk)), vbRed
      DoEvents
      Call Sleep(20)
    Next i
  End With
 
End Sub

Gruss,

Zardoz