I made this little example of the calendar control that comes free with Windows to show it off a little.
NoMainWin Struct icex, _ dwSize As ulong, _ dwICC As ulong icex.dwSize.struct = Len(icex.struct) icex.dwICC.struct = HexDec("100") 'ICC_DATE_CLASSES CallDLL #comctl32, "InitCommonControlsEx", _ icex As struct, _ r As long Open "DateTimePicker" For Window As #1 #1 "TrapClose [Quit]" h1 = HWnd(#1) CallDLL #user32, "GetWindowLongA", _ h1 As long, _ _GWL_HINSTANCE As long, _ hInst As long style = _WS_VISIBLE Or _WS_CHILD CallDLL #user32, "CreateWindowExA", _ 0 As long, _ "SysDateTimePick32" As ptr, _ "DateTime" As ptr, _ style As long, _ 20 As long, _ 50 As long, _ 120 As long, _ 20 As long, _ h1 As long, _ 0 As long, _ hInst As long, _ 0 As long, _ hwndDTP As long [Wait] Wait [Quit] Close #1 End