今天有网友问到这个问题,我想了下,给出如下两种方案:
[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
呵呵,一题多解,这是我念高中时学立体几何的方法