Dim Spieler As Single 
'1 - Rot 
'2 - Gelb 
Private Sub Command1_Click() 
End 
End Sub 
Private Sub Command2_Click() 
Timer1.Enabled = True 
End Sub 
Private Sub Command3_Click() 
Anleitung.Show 
End Sub 
 
 
Private Sub Bt_Click() 
If Spieler = 1 Then 'Roten Spieler 
'mach den button rot 
Spieler = 2 
Else 
'mach den button gelb 
Spieler = 1 
End If 
End Sub 
 
 
Private Sub Form_Load() 
Spieler = 1 
End Sub