两种方案:
[1]
在窗体上加一个按钮,代码如下:
Private Sub Command1_Click()
Shell "rundll32 netplwiz.dll,UsersRunDll", vbNormalFocus
End Sub
[2]
或者这样也可以打开:
Private Sub Command1_Click()
Shell "control.exe userpasswords", vbNormalFocus
End Sub
两种方案:
[1]
在窗体上加一个按钮,代码如下:
Private Sub Command1_Click()
Shell "rundll32 netplwiz.dll,UsersRunDll", vbNormalFocus
End Sub
[2]
或者这样也可以打开:
Private Sub Command1_Click()
Shell "control.exe userpasswords", vbNormalFocus
End Sub
上一篇