关于计时器Timer

Question

我想做个定时弹出窗口，起到定时提醒作用，请问如何实现，下面是我的代码，但是不能达到效果，请您指正，感谢您。Private Sub Command1_Click()
Timer1.Enabled = True
Form1.Hide
Form2.Show
Static a'小时
Static b'分钟
Static c'秒钟
End SubPrivate Sub Form_Load()
Form1.Timer1.Enabled = False
Timer1.Interval = 1000
Label1.Caption = "当前时间： " & Time$
End SubPrivate Sub Timer1_Timer()
Label1.Caption = "当前时间： " & Time$
c = c + 1
If c Mod 4 = 3 Then
Form2.Caption = "dodo闹钟"
End IfIf c = 60 Then
b = b + 1
End IfIf a = 60 Then
a = a + 1
End IfIf a = Text1.Text And b = Text2.Text Then
Form1.Show
Unload Form2End IfEnd Sub

Answer 1

If b >= 60 Then'不是a
b=0
a = a + 1
End IfIf a >= val(Text1.Text) And b >= val(Text2.Text) Then
Form1.Show
Unload Form2

Answer 2

Dim DodoTime As Date
DIm ExecDodo As Long
Private Sub Command1_Click()
   '设置什么定时，可以是这样写就可以从变量中读取
   'DodoTime = Format(Text1.Text, "yyyy-MM-dd HH:mm:ss")
   DodoTime = #2008-5-18 15:23:47#
   ExecDodo = 1
   Timer1.Enabled = True
   Form1.Hide
   Form2.Show
End SubPrivate Sub Form_Load()
   ExecDodo = 0
   Form1.Timer1.Enabled = False
   Timer1.Interval = 1000
   Label1.Caption = "当前时间： " & Time$
End SubPrivate Sub Timer1_Timer()
   Label1.Caption = "当前时间： " & Time$
   '可以单独判断时间的，如我用的是 Now, 你可以用 Time，当然用Time DodoTime 也要改
   If Now >= DodoTime And ExecDodo = 1 Then
      ExecDodo = 0
      Form1.Show
      Unload Form2
   End If
End Sub