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