'Benötigt wird eine Picturebox, die ein Bild enthält
'und eine Image, die ein Icon (32x32) enthält.
Private Sub Form_Activate()
 
Dim Pi!, Wnk!, i&, N&, Höhe&, Breite&, NewX&, NewY&, LastX&, LastY&
 
N = 200
Pi = 4 * Atn(1)
With Picture1
.ScaleMode = vbPixels
.AutoRedraw = True
Breite = .ScaleWidth
Höhe = .ScaleHeight
If .Picture = 0 Then Set .Picture = .Image
Do
  For i = 0 To N - 1
    Wnk = 2 * Pi / N * i
    NewX = Breite / 2 * (1 + 0.6 * Sin(Wnk))
    NewY = Höhe / 2 * (1 + 0.6 * Cos(Wnk))
    .PaintPicture .Picture, LastX, LastY, 32, 32, LastX, LastY, 32, 32
    .PaintPicture Image1.Picture, NewX, NewY
    LastX = NewX
    LastY = NewY
    DoEvents
  Next i
Loop
End With
 
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
  End
End Sub

Gruss,

Zardoz