form1添加兩個控件,Textbox1,command1
Private Sub Command1_Click()
If Me.Text1.Text = "abcd" Then MsgBox "口令正確" Else MsgBox "錯誤口令"
End Sub
Private Sub Form_Load()
Me.Text1.Text = ""
Me.Text1.PasswordChar = "*"
是這樣的效果嗎?