timer控件没反映

Question

Private Sub Timer1_Timer()
Dim hhh As String
Dim mmm As String
hhh = Text1.Text
mmm = Text2.Text
If hhh = Hour(Time) Then
If mmm = Minute(Time) Then
MsgBox ("定时备份完成")
End If
End If
End Sub没反映？

Answer 1

Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 1000
End Sub

Answer 2

Text_time里输入时间00:30，时间到了不执行Private Sub Timer1_Timer()
Dim TimeN As String
Dim TimeFormat As String
TimeN = Text_time.Text
TimeFormat = Format(Time, "Hh:mm")
If TimeN = TimeFormat ThenMsgBox ("定时备份完成")
End If
End Sub

Answer 3

If hhh = Hour(Time) Then
   ---------------
If mmm = Minute(Time) Then
   -----------------那可能着么准，应该这样
If hhh <= Hour(Time) Then
   ---------------
If mmm <= Minute(Time) Then