Private Sub CmdOk_Click()
If Txtpassword.Text = "palapa" Then
MsgBox "Password benar!!"
Else
MsgBox "Password yang anda masukkan salah!!"
Txtpassword.Text = ""
Txtpassword.SetFocus
End If
End Sub