Quick and Clean <hopefully> :-) Jabaco Source 1 2 3 4 5 Public Sub cmd_set_today_Click() MyCal = New GregorianCalendar Call InitDate(MyCal.getTime) bInitEnd = True End Sub

Looks and works great, thanx. How about a little 'today' button?