'Lege ein Shape und ein Line-Steuerelement in die Form
 
Option Explicit
 
Private Sub Form_Activate()
 
Dim XM As Integer, YM As Integer, Winkel As Single
Dim Rad As Integer, Pi As Single
Dim W As Integer, A As Integer
 
Me.ScaleMode = vbPixels
XM = Me.ScaleWidth / 2
YM = Me.ScaleHeight / 2
Pi = 4 * Atn(1)
Rad = YM
With Line1
.X1 = XM
.Y1 = YM
Do
  Winkel = Pi / 180 * A
  .X2 = XM + Rad * Sin(Winkel)
  .Y2 = YM + Rad * Cos(Winkel)
  Shape1.Move XM + Rad / 2 * Cos(Winkel), YM + Rad / 2 * Sin(Winkel)
  For W = 1 To 1500: DoEvents: Next W
  A = A + 1 Mod 360
Loop
End With
 
End Sub