Sub BtnBack_Click
DateTime.TimeFormat = "HH:mm"
MyHeure = DateTime.Time(HeurePilule)
'Enregistre la coche
If ChkNotif.Checked = True Then
notif = True
Else
notif = False
End If
'Enregistre le mail
mail = EditParamMail.Text
Dim List1 As List
List1.Initialize
List1.Add(datePilule)
List1.Add(heurePilule)
List1.Add(marquePilule)
List1.Add(classeOP)
List1.Add(notif)
List1.Add(mail)
File.WriteList(File.DirRootExternal,FileSETTINGS,List1)
'Lance la notif si coché
If ChkNotif.Checked = True Then
'StartService(Alarme)
StartServiceAt("Alarme",DateTime.TimeParse(MyHeure),False)
'StartServiceAt("Alarme",DateTime.TimeParse("20:45:00"),True)
Else
'StopService(Alarme) 'Met fin à la notif
CancelScheduledService(Alarme)
End If