vb6.0程序设计找错

Dim Hour As String, Minute As String
Private Sub Command1_Click()
Hour = Format(Text1.Text, "00")
Minute = Format(Text2.Text, "00")
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Form_Load()
Label5.Caption = Time()
Hour = "* *"
Minute = "* *"
End Sub
Private Sub Timer1_Timer()
Label5.Caption = Time()
If Mid$(Time$, 1, 5) = Hour + ":" + Minute Then
Hour = "* *"
Minute = "* *"
MsgBox$ ("时间到!")
End If

End Sub

1楼正解！时间变量一定要是全局变量！看来 你对变量还没有搞懂呀！