主题：[求助]密码打开系统菜单问题?

Dim pwd As String
If InputPassWord(pwd,"提示","请输入密码:") Then
    If pwd = "123" Then
        Syscmd.Project.OpenSystemMenu()
    Else
        msgbox("密码不正确")
    End If
End If

写在你菜单【打开系统菜单】那里去。