Sub Button1_Click
DateTime.DateFormat = "dd/MM/yyyy"
DateTime.TimeFormat = "HH:mm:ss"
Dim parseDateTime As Long = DateTime.DateTimeParse("17/12/2020","07:59:05")
StartServiceAtExact(PlayAlarm,parseDateTime,True)
Dim parseDateTime As Long = DateTime.DateTimeParse("17/12/2020","08:00:05")
StartServiceAtExact(PlayAlarm,parseDateTime,True)
Dim parseDateTime As Long = DateTime.DateTimeParse("17/12/2020","08:01:05")
StartServiceAtExact(PlayAlarm,parseDateTime,True)
Dim parseDateTime As Long = DateTime.DateTimeParse("17/12/2020","08:02:05")
StartServiceAtExact(PlayAlarm,parseDateTime,True)
End Sub