Simple at least to most of the people here. Anyway I need to write a simple password validation program. The password is set in the code. My problem is that after 3 attempts at the pass the program is supposed to shut down. I am having problems setting a counter. After 3 attempts it just keeps letting me enter a password. Here is the code I have for the program. Any suggestions would help this noob greatly. Thanks.

Dim pass As Integer
Dim valid As String

valid = "xyz"
If Me.txtUser.Text = "" Then
MsgBox "enter a username"
Me.txtUser.SetFocus
End If
If CStr(Me.txtPass.Text) = "xyz" Then
MsgBox "access granted"

End If
If CStr(Me.txtPass.Text) <> "xyz" Then
MsgBox "invalid password"
Me.txtPass.Text = ""
Me.txtPass.SetFocus

pass = pass + 1
If pass > 3 Then
MsgBox " you lose, do not pass go do not collect two hundred dollars"

End If
End If

Dim pass As Integer
Dim valid As String

These need to be declared in the declaration ssection or the form load section. By putting them in the On_Click event you are re dimming and setting them to 0 and "xyz" every time you click on the button.

Try this code in the On_Click event...

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
valid = "xyz"
If Me.txtUser.Text = "" Then
MsgBox("enter a username")
Me.txtUser.Focus()
End If
If CStr(Me.txtPass.Text) = "xyz" Then
MsgBox("access granted")
End If
Select Case (CStr(Me.txtPass.Text))
Case "xyz"
MsgBox("access granted")
Case Else
If pass < 3 Then
MsgBox("invalid password")
Me.txtPass.Text = ""
Me.txtPass.Focus()
pass = pass + 1
Else
MsgBox(" you lose, do not pass go do not collect two hundred dollars")
End
End If
End Select
End Sub

I used VB.NET so you may have to tweek the syntax a little. Like Focus() I believe is SetFocus in prior versions.

Hope this helps...
Bob

Thanks alot bob that helps greatly.