Public Class PswrdScreen
	' this is stored globally, so that we remember the number of tries between
	' each attempt
	' Note, I've made this "zero based" (starts at 0) because IDK what the Form_Load()
	' function in Vb.NET is
	Dim Attempt As Integer
	
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnGuess.Click
        Dim Password As String
        Dim F1 As New Form1
        Dim F3 As New Form3
        Password = "test"
		
		' If the user has had too many attempts...
		If Attempt >= 3 Then
			MsgBox("You have tried and failed too many times, my friend")
			Close()
		End If
		
		' Show the user the number of attempts made
		Attempt = Attempt + 1
		lblAttempt.Text = "Enter password. This is attempt number " & Attempt
		
		' validate password
        If txtPass.Text = Password Then
            MsgBox("This password is valid!")
            F3.Show()
            Close()

        Else
            MsgBox("This password is invalid!")
			' We don't need to close this form!
            'F1.Show()
            'Close()

        End If
    End Sub

    Private Sub txtPass_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtPass.TextChanged

    End Sub
End Class