请教一个简单的句子？？？

请问如何用vb编写一个简单的密码

在窗体form1上添加一个textbox和commandbutton控件，如果textbox的值是123则显示另外一个窗体( ow)如果错误则用msgbox显示密码错误。设置Textbox的PasswordChar为*。 Option Explicit Const vbKeyDecPt = 46 Private Sub Command1_Click() If Val(Text1) = 123 Then Form2。 Show Me。Hide Else MsgBox "密码不正确,请重新输入", vbExclamation + vbOKOnly, "提示" Text1。SetFocus...全部

  在窗体form1上添加一个textbox和commandbutton控件，如果textbox的值是123则显示另外一个窗体( ow)如果错误则用msgbox显示密码错误。设置Textbox的PasswordChar为*。
   Option Explicit Const vbKeyDecPt = 46 Private Sub Command1_Click() If Val(Text1) = 123 Then Form2。
  Show Me。Hide Else MsgBox "密码不正确,请重新输入", vbExclamation + vbOKOnly, "提示" Text1。SetFocus Text1。
  SelStart = 0 Text1。
  SelLength = Len(Text1) Exit Sub End If End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) '限制textbox只能输入数字 If (KeyAscii >= vbKey0 And KeyAscii <= vbKey9) Or KeyAscii = vbKeyDecPt Or KeyAscii = vbKeyBack Then Exit Sub ElseIf KeyAscii = vbKeyReturn Then Call Command1_Click Else KeyAscii = 0 End If End Sub。收起