Sub Schedule(hs As Long,ms As Long)
Dim alarm As Long
DateTime.TimeFormat="HH:mm:ss"
Dim today As Long
today = DateTime.DateParse(DateTime.Date(DateTime.Now)) 'Sets today at 12:00 AM
alarm = today + hs * DateTime.TicksPerHour + ms * DateTime.TicksPerMinute + DateTime.TicksPerMinute
If alarm < DateTime.Now Then alarm = DateTime.Add(alarm, 0, 0, 1)
Dim h, m As Int
h = Floor((alarm - DateTime.Now) / DateTime.TicksPerHour)
m = ((alarm - DateTime.Now) - h * DateTime.TicksPerHour) / DateTime.TicksPerMinute
CancelScheduledService("")
StartServiceAt("", (DateTime.Now+((h*60*60*1000)+(m*60*1000))), True)
End Sub