Combo1.Clear
        Command1.Visible = False
    Select Case Reihe(1)
                Case "0"
                Picture1.Visible = False
                StatusBar1.SimpleText = "Der Computer zieht."
 
    End Select
 
        If Reihe(1) = 0 And Reihe(2) = 0 And Reihe(3) = 0 And Reihe(4) = 0 Then
            MsgBox "Herzlichen Glückwunsch! Der Computer ist besiegt.", _
              vbInformation, "Sieger!!!"
        Else
 
 StartZeit = GetTickCount
            Do: Loop Until GetTickCount - StartZeit >= 3000
 
            Umwandlung
            Einlesen
            lZahl
            Zugberechnung
        End If
End If
StatusBar1.SimpleText = "Sie sind an der Reihe."
End Sub