Sub cmdLogin_Click
If
(userTxt.Text.EqualsIgnoreCase = "administrator")AND(passTxt.Text.EqualsIgnoreCase = "password") Then
RemoveView
Activity.LoadLayout("menu.bal")
Else
If
(userTxt.Text.EqualsIgnoreCase="") AND (passTxt.Text.EqualsIgnoreCase = "") Then
Msgbox ("Field entry required"& CRLF &"No data entry")
Else
Msgbox ("Access denied!"& CRLF &"Invalid entry")
userTxt.Text=""
passTxt.Text = ""
userTxt.RequestFocus
End If ' This line #75
userTxt.RequestFocus
End Sub