Write a program to enter the password ?

Private Sub cmdexit_Click()
End
End Sub

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", vbRetryCancel - 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

Private Sub Form_Activate()
txtpassword.SetFocus
End Sub


Posted by: Wasim Javed