这是个闹表，但是到循环这就成了死循环
Private Sub Timer1_Timer()
Label2.Caption = Time$
Dim i As Integer
If a = Format(Now, "MM") And b = Format(Now, "dd") And c = Format(Now, "hh") And d = Format(Now, "nn") Then
For i = 1 To 30

Form2.Show
List1.AddItem "已经完成" & "等待" & " " & a & "-" & b & " " & c & ":" & d & " " & "提示" & " " & Text1.Text
Next i
End If

End Sub