WAP to enter password

Private Sub cmdvalid_Click()
Dim response As Integer
If txtpassword.Text = txtpassword.Tag Then
MsgBox "valid password", vbOKOnly + -vbExclamation, "Access Allowed"
Else
response = MsgBox("incorrect password", vcbRetrycancel - vbCritical, "Access Denied")
If response = vbRetry Then
txtpassword.SelStart = 0
txtpassword.SelLength = Len(txtpassword.Text)
Else
End
End If
End If
txtpassword.SetFocus
End Sub


Posted by: Wasim Javed