Private Sub mindate(ByVal str_date As String) DateTimePicker1.MinDate = str_date End Sub
click event
handler of it and do the following code to enable the previous date of the datetimepicker.
mindate("01/01/1753")
click event
handler of it and do the following code to disable the previous date of the datetimepicker.
mindate(Now)