Postada em 12/02/2006 23:37 hs
Deve haver outra maneira, mas eu usaria esse código
na propriedade Interval do Timer=1000
Private Sub Timer1_Timer() Dim AGORA As Date Dim MINUTOS As String Dim SEGUNDOS As String
AGORA = Format(Time, "HH:MM:SS")
MINUTOS = Mid(AGORA, 4, 2) SEGUNDOS = Mid(AGORA, 7, 2)
If MINUTOS = "00" And SEGUNDOS = "00" Then MsgBox "Sua mensagem" End If
End Sub
|