Private Sub Calendrier_Initialize()
Calendar1.Value = Date
End Sub
Private Sub Calendar1_Click()
hotline.txt_date.Value = Format(Calendar1, "yyyy/mm/dd")
hotline.txt_time.Value = Format(Now, "hh:mm")
Unload calendar
'calendar.Calendar1.Value = Date
End Sub