Mi-Forms includes a “date picker” as part of the Generic Dialogs namespace. To use the dialogs from this namespace, you must first add a reference to the MiCo.MiForms.GenericDialogs.dll which is found in the Mi-Forms Designer installation directory (normally C:\Program Files (x86)\Mi-Co\Mi-Forms Designer).

Please see the example form in the Attachments section below.

Dim xdlg As New MiCo.MiForms.GenericDialogs.DlgMonthCalendarNoBtns

xdlg.Text = “Date of Visit”

Dim xmd As System.Windows.Forms.MonthCalendar
xmd = xdlg.CtlMonthCalendar
If (_DateField.IsValidDateTime) Then
	xmd.SelectionStart = _DateField.DateTimeValue
End If

If (xdlg.ShowDialog() = System.Windows.Forms.DialogResult.OK) Then
	_DateField.Value = xmd.SelectionStart.ToString(_DateField.DateTimeFormat)
End If