Option Explicit
Dim i, z As Integer
Dim start, zeit As Long
 
Private Sub CommandButton1_Click()
While i < 10
i = i + 1
Randomize
z = Int(1 + (63 * Rnd))
    If Image + z.Visible = True Then   '?????wie kann ich das richtig schreiben?
        Image + z.Visible = False   '?????
    Else
        Image + z.Visible = True   '?????
    End If
DoEvents
        'Möglichkeit für das Programm auf andere Ereignisse zu reagieren
        start = Timer
        Do             'Zeitverzögerung
          zeit = Timer - start
        Loop Until zeit >= 0.02
 
Wend
End Sub