Sub statefrombtn_Click
Dim Dd As DateDialog
Dd.Year = DateTime.GetYear(DateTime.Now)
Dd.Month = DateTime.GetMonth(DateTime.Now)
Dd.DayOfMonth = DateTime.GetDayOfMonth(DateTime.Now)
ret = Dd.Show("Set the required date", "Select From Date", "Yes", "No", "Cancel", bmp)
If ret = -1 Then
FromDateEdit.Text=Dd.DayOfMonth&"/"&Dd.Month&"/"&Dd.year
End If
End Sub
Sub statetobtn_Click
Dim Dd As DateDialog
Dd.Year = DateTime.GetYear(DateTime.Now)
Dd.Month = DateTime.GetMonth(DateTime.Now)
Dd.DayOfMonth = DateTime.GetDayOfMonth(DateTime.Now)
ret = Dd.Show("Set the required date", "Select To Date", "Yes", "No", "Cancel", bmp)
If ret = -1 Then
statetoDate.Text=Dd.DayOfMonth&"/"&Dd.Month&"/"&Dd.year
End If
End Sub