---

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

---