Private Sub Command1_Click()
Dim wshshell As Object
Set wshshell = CreateObject("wscript.shell")
'添加或修改注册表
wshshell.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\AutoAdminLogon", "0"
Set wshshell = Nothing
End Sub