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

如题,项目启动后打开自己的菜单,其中有一按钮[系统菜单],点击时出现密码确认窗口;只有在输入正确密码后才能打开系统菜单.否则无法打开系统菜单.求代码???

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

这个是要在项目属性中吗

 

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