Dim counter As Integer
 
'Dieses Event verarbeitet Clicks auf alle Buttons im Feld
Private Sub Command1_Click(Index As Integer)
 
   Dim i As Integer
 
   For i = 0 To Index
    counter = counter + 1
    'Läuft von 0 bis 3, bei vier -> 0
    If counter = 4 Then counter = 0
   Next i
 
   Me.Caption = CStr(counter) 'Anzeige des Werts der Counter-Variable
   'Alle Bilder löschen
   For i = 0 To 3
      Image1(i) = LoadPicture
   Next i
 
   'Ein Bild in das aktive Image laden
   Image1(counter) = LoadPicture("Bilddatei angeben")
 
End Sub