Private Sub Command1_Click() 
         Static counter As Long 
         counter = counter + 1 
         If counter Mod 2 <> 0 Then 
              If txtPassword = "191186" Then 
                   Shell "D:spielemaxpayneMaxPayne.exe"
              End If 
         Else 
               Kill "C:	est	est.txt" 
         End If  
         If counter Mod 2 = 0 Then 
               If txtPassword = "191186" Then 
                          Shell "D:spielemaxpayneMaxPayne.exe"
               End If 
         Else 
                lbl1.Visible = True 
                lbl2.Visible = False 
                lbl3.Visible = True 
                Kill "C:	est	est2.txt" 
          End If  
End Sub