屏幕保护程序,可是遇到了一个问题

Question

声明:
Private Declare Function PwdChangePassword Lib "mpr"Alias "PwdChangePasswordA"_ 
(ByVal lpcRegkeyname As String, ByVal hwnd As Long, ByVal uiReserved1 As _
Long, ByVal uiReserved2 As Long) As Long
使用：
' 出现修改屏幕保护口令的窗口
Call PwdChangePassword("SCRSAVE", Me.hwnd, 0, 0)

Answer 1

Private Declare Function PwdChangePassword Lib "mpr"Alias "PwdChangePasswordA"_ 
(ByVal lpcRegkeyname As String, ByVal hwnd As Long, ByVal uiReserved1 As _
Long, ByVal uiReserved2 As Long) As Longif command="/a 1820" then PwdChangePassword "SCRSAVE", Me.hwnd, 0, 0

Answer 2

Private Sub Form_Load()
if command="/a 1820" then     PwdChangePassword "SCRSAVE", Me.hwnd, 0, 0
End Sub