Sub BtnModal1_Click
Dim r As Reminder = store.CreateReminder
r.Title = ModalTxtFld1.Text
r.Completed = False
r.SetDueDate(DateTime.Date(DatePicker1.Ticks) & DateTime.Time(DatePicker1.Ticks),False)
store.SaveReminder(r)
modalAddreminder.Visible = False
btnList_Click
End Sub