Android Question How to limit datepicker to only past days?

Sub ADP_Closed (Cancelled As Boolean, Date As Long)
Dim Today As Long = DateTime.DateParse(DateTime.Date(DateTime.Now))
Date = DateTime.DateParse(DateTime.Date(Date))
If Cancelled = False AND Date > Today Then
'...........................

Private Sub SelectDay(day As Int, UpdateLabel As Boolean)
   selectedDate = DateUtils.SetDate(year, month, day)
   selectedDay = day
   selectedMonth = month
   selectedYear = year

   Dim Today As Long = DateTime.DateParse(DateTime.Date(DateTime.Now))
   selectedDate = DateTime.DateParse(DateTime.Date(selectedDate))
   If selectedDate > Today Then
     SetDate(DateTime.Now, False)  '## reset ADP to current date
     targetLabel.Text = ""         '## this covers user picking good date.. then changing to bad date
     ToastMessageShow("Bad Date ...",False)
   Else
     If UpdateLabel Then targetLabel.Text = DateTime.Date(selectedDate)
   End If

End Sub