I too had this problem, but it is now solved thanks to this forum.
Add Dialogs Library to the project
You can then use the following to stop the full calendar from apprearing.
Sub DateInput
Dim Dd As DateDialog
Dim strDate as String
Dim ret As Int
Dd.ShowCalendar = False
Dd.Year = DateTime.GetYear(DateTime.now)
Dd.Month = DateTime.GetMonth(DateTime.now)
Dd.DayOfMonth = DateTime.GetDayOfMonth(DateTime.now)
ret = Dd.Show(Prompt, Title, "Ok", "Cancel", "", Null)
strDate= DateTime.Date(Dd.DateTicks)
If ret=DialogResponse.Cancel Then
strDate= OrigDate
EndIf
Return strDate
End Sub
also works for the DateDialog in the Dialog Library 2.9.2