Option Explicit
Private Sub Command1_Click()
    Dim intResult As Integer
   
    intResult = MsgBox("你选择了退出登录，真的退出？", vbYesNo, "登录验证")
    If intResult = vbYes Then End
End Sub

Private Sub Command2_Click()
    If text1 = "123" Then
        MsgBox text2 & "你好!"
    Else
        MsgBox text2 & ",请重新输入口令!"
  End If
 End Sub
---------------------------------------------------------------------------------------------------------------------------------------------
我想要实现当输入密码错误的时候，在重新输入的时候要清空text1跟text2里面的内容 该如何做？

Private Sub Command2_Click()
    If text1 = "123" Then
        MsgBox text2 & "你好!"
    Else
text1.text=""
text2.text=""
        MsgBox text2 & ",请重新输入口令!"
  End If
End Sub

我想要实现当输入密码错误的时候，在重新输入的时候要清空text1跟text2里面的内容 该如何做？
还想要在重新输入时候让光标自己停留在text2那里等待重新输入。
麻烦大家帮忙看看！

谢谢拉！第一个问题解决拉！

另外我 还想要在重新输入时候让光标自己停留在text1那里等待重新输入。  是text1

Private Sub Command2_Click()
    If text1 = "123" Then
        MsgBox text2 & "你好!"
    Else
text1.text=""
text2.text=""
        MsgBox text2 & ",请重新输入口令!"
        text1.SetFocus
  End If
End Sub

[[it] 本帖最后由 dwh2005 于 2008-5-11 15:44 编辑 [/it]]

谢谢拉!

在提示用戶名錯誤 前打
text1.text=""