yo James

Help

Here the code you need

VB Code:

Private Sub cmdOK_Click()
    If txtPassword = "password" Then
        LoginSucceeded = True
        Load frmMain
        frmMain.Label3.Caption = Me.txtUserName.Text
        Unload Me
        frmMain.Show
    Else
        MsgBox "Invalid Password, try again!", , "Login"
        txtPassword.SetFocus
        SendKeys "{Home}+{End}"
    End If
End Sub