Visual Basic 6.0 : Basic Login / Cancel

Sample Codes Here:

(Login Button)

If txtUser.Text = "jomar" And txtPas.Text = "flores" Then
MsgBox "Access granted!!", vbInformation, "Message"
Unload Me
frm2.Show
Else
MsgBox "Access denied!", vbCritical, "Message"
End If

(Cancel Button)

Dim a As String
a = MsgBox("Are you sure you want to cancel?", vbQuestion + vbYesNo, "Message")
If a = vbYes Then
End
End If

Watch video below