VB定时

Option Explicit
Dim alarmtime

Private Sub Command1_Click()
Call dialog
End Sub

Private Sub Command2_Click()
alarmtime = InputBox("请输入想设定的时间,例如(19:00:00)", "小闹钟")
If alarmtime = "" Then
End If
If (IsDate(alarmtime) = False) Then '如果alarmtime为日期格式或可以转为date，返回true，否则返回false
MsgBox "输入的不是时间格式，请重试！", vbExclamation, "wrong"
Else
alarmtime = CDate(alarmtime) '将alarmtime转为日期格式
End If
End Sub

Private Sub Command3_Click()
Call deng
End Sub

Private Sub Command4_Click()
End
End Sub

Private Sub Form_Load()
Command3.Enabled = 0
alarmtime = ""
End Sub

Private Sub Form_Resize() '如果最小化，则显示时间，还原则显示小闹钟
If WindowState = 1 Then
mintime
Else
Caption = "小闹钟"
End If