Dim cal As Calendar
Dim DP As DatePickerDialog
cal.Initialize("MMM dd, yyyy",cal.US,DateTime.Date(DateTime.Now))
DP.Initialize("Date_From_Picker",DateTime.GetYear(DateTime.Now),DateTime.GetMonth(DateTime.now) - 1,DateTime.GetDayOfMonth(DateTime.now))
DP.HighlightedDays( Array As Calendar(cal))
DP.show("Date_From_Picker")