Bewegend beeld: code

De ImageList bevat acht beelden. De Timer is Enabled en het Interval is ingesteld op een bepaalde waarde.
Voor het bijhouden van de nummers van de beelden hebben we een variable nodig.
Dim nummer As Integer
Bij het opstarten tonen we het eerste beeld.
Private Sub Form_Load()
'we beginnen met het eerste beeld (de nummering in ImageList begint bij één)
nummer = 1
'toon dat eerste beeld
Picture1.Picture = ImageList1.ListImages.Item(nummer).Picture
End Sub
De eigenlijke animatie gebeurt met de timer.
Private Sub Timer1_Timer()
'de beelden zijn genummerd van 1 tot 8
nummer = (nummer Mod 8) + 1
Picture1.Picture = ImageList1.ListImages.Item(nummer).Picture
Me.Icon = ImageList1.ListImages.Item(nummer).Picture
End Sub
Om sneller of trager te gaan werken we met het Interval van de Timer.
Private Sub cmdSneller_Click()
Timer1.Interval = Timer1.Interval / 2
cmdTrager.Enabled = True
'het interval mag niet nul worden, want dan valt de animatie stil
If Timer1.Interval = 0 Then
Timer1.Interval = 1
cmdSneller.Enabled = False
End If
End Sub

Private Sub cmdTrager_Click()
Timer1.Interval = Timer1.Interval * 2
'het interval mag niet te groot worden
If Timer1.Interval > 16000 Then cmdTrager.Enabled = False
cmdSneller.Enabled = True
End Sub