Private Sub Command1_Click()
If Text1.Text = "1234" Then
MsgBox ("doğru şifre")
End
Else
MsgBox ("yanlış şifre")
End If
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Form_Load()
Command1.Default = True
'enter tuşuna basılırsa comand1 aktif olsun
Command2.Cancel = True
'esc tuşuna basılırsa comand2 aktif olsun
Text1.PasswordChar = "*"
End Sub