'Hallo...
'die einfachste Möglichkeit wäre sicherlich wenn Sie eine Serie von Grafiken 
' erstellen
'die aneinandergereit eine Rotation simulieren. D.h. erstellen Sie z.B. 8 
' Grafikdateien
'auf der Basis des vorliegenden Icons <CDROM01.ICO> und drehen jedes einzelne Bild
'in einem Grafikprogramm, z.B. Bild1 bleibt erhalten, Bild2 wird um 12 Grad 
' nach rechts
'gedreht, Bild3 um 24 Grad nach rechts usw. Da Sie Dateien vom Type .ico 
' verwenden
'wollen ist es dann erforderlich diese unter diesem Dateitypen zu speichern, 
' wobei Sie
'darauf achten sollten einen transparenten Hintergrund für die Icons zu 
' bestimmen.
'Haben Sie diese "Vorarbeiten" erledigt, reichen folgende 3 Zeilen Code aus, um 
' diese Grafiken
'als "Animation" wiederzugeben.
 
Private Sub Timer1_Timer()
    Static n As Integer
    n = n + 1
    'Image2 ist das Ausgabe-Control der voliegenden Grafiken
    'die in Image1(0) bis Image1(7) liegen.
    Image2.Picture = Image1(n).Picture
    If n = 7 Then n = 0
End Sub
'Mfg
'Frank