vb编程时用的程序

VB小定时关机很好写的，不用什么api就可以啊！但是不知道这是不是你要的，如果不满意百度HI联系我啊！我再给你修改！

'代码开始,复制下面运行即可！

_____________________________________________________________________

Private Sub Command1_Click()

End

End Sub

Private Sub Command2_Click()

Dim a As Date

Dim b As Date

Dim c As String

If Text1.Text <> "" Then

a = Text1.Text

c = Len(a)

b = IsDate(a)

Exit Sub

End If

If Option1.Value = True Then

Shell "shutdown -s -t & a"

Exit Sub

End If

If Option2.Value = True Then

Shell "shutdown -r  -t & a "

Exit Sub

End If

End Sub

Private Sub Form_Load()

MsgBox&