Private Pi!
 
Private Sub Form_Load()
 
  Me.ScaleMode = vbPixels
  Pi = 4 * Atn(1)
  Call Animation_ein
 
End Sub
 
Private Sub Animation_ein()
 
  With Picture1
    .Width = 64 ' Breite
    .Height = 64 ' Höhe
    .ScaleMode = vbPixels
    .BackColor = vbWhite
    .AutoRedraw = True
    .Cls
    .Visible = True
  End With
  Timer1.Interval = 20
  Timer1.Enabled = True
 
End Sub
 
Private Sub Animation_aus()
 
  Timer1.Enabled = False
  Picture1.Visible = False
 
End Sub
 
Private Sub Timer1_Timer()
 
  Dim Z1&, i&, Rad1!, Rad2!, XM!, YM!, Wnk!, SinW!, CosW!
  Static N&
 
  Z1 = 24 ' Zahl der Linien
  N = (N + 1) Mod Z1
  Rad1 = 7 ' freier Bereich innen
  With Picture1
    XM = .ScaleWidth / 2
    YM = .ScaleHeight / 2
    Rad2 = XM - Rad1 - 2
    .DrawWidth = 2 ' Liniendicke
    For i = 0 To 1
      Wnk = 2 * Pi / Z1 * ((N + 6 * i) Mod Z1)
      SinW = Sin(Wnk): CosW = Cos(Wnk)
      Picture1.Line (XM + Rad1 * CosW, YM + Rad1 * SinW)- _
        Step(Rad2 * CosW, Rad2 * SinW), _
        IIf(i = 0, RGB(200, 200, 200), RGB(96, 96, 96))
    Next i
    .DrawWidth = 1
  End With
 
End Sub

Gruss,

Zardoz