主题：窗口

Click事件

Dim pwd As String
If InputPassWord(pwd,"提示","请输入密码:") Then
    If pwd <> "123456" Then
        msgbox("密码错误")
        Return
    End If
Else
    msgbox("请输入密码")
    Return
End If

msgbox("执行完毕")