我想在利用vb设计一个带密码的,可以调整和设置电脑自动关机时间的小工具,怎样做?

密码设置
Private Sub Form_Load()
Dim x As String
Dim y As String
x = "这里输入默认登陆密码"
y = InputBox("请输入密码", "登录")
If y = x Then
Text1.Enabled = True
Command1.Enabled = True
Else
Text1.Enabled = False
Command1.Enabled = False
End If
End Sub
关机就用VB直接调用shutdown好了

private sub command1_click()
t=text1.text
shell Environ$("WinDir") & "\system32\shutdown.exe -s -" & "t"
end sub

t代表的时间是秒