vb Code:
'//Top of the Code Section
Private AlarmTime As Date
Private Sub Form_Load()
lblTime = Time
'//Set Alarm TIme To 8pm but in 24 hour
'//When you update your Alarm Time Label, you can
'//Change the format of the time to display how you want
AlarmTIme = "20:00"
End Sub
Private Sub Timer1_Timer()
'//Update The Label
lblTime = Time
'//Works it out in 24 hour format then you dont need to check _
'//To see if it is AM or PM
If Format(Time, "hh:mm") = Format(AlarmTime, "hh:mm") Then
'//Alarm Code Here
MsgBox "alarm"
'//Stop The Timer to stop duplicate alarms running
'//Every Second
Timer1.Enabled = False: Exit Sub
End If
End Sub