DateTime

msctls_progress32     ProgressBar

SysDateTimePick32   Custom

PostMessage(hWnd, WM_CHAR, '3', 0); (where '3' is the actual key typed in) –

Private Const DTS_SHORTDATEFORMAT As Long = &H0

Private Const DTS_SHOWNONE As Long = &H2

Private Const DATETIMEPICK_CLASS As String = SysDateTimePick32

Dim hDT As Long 

WS_EX_CLIENTEDGE Or WS_EX_LEFT Or WS_EX_LTRREADING Or WS_EX_RIGHTSCROLLBAR

WS_CHILD Or WS_OVERLAPPED Or WS_VISIBLE Or DTS_SHORTDATEFORMAT Or DTS_SHOWNONE

,

Type SYSTEMTIME

wYear                    ' 1601 To 30827

wMonth                ' 1 To 12 

wDayOfWeek       ' 0 To 6

wDay                    ' 1 To 31

wHour                  ' 0 To 23

wMinute              ' 0 To 59

wSecond             ' 0 To 59

wMilliseconds    ' 0 To 999

End Type 

DTS_TIMEFORMAT 

"The display will look like: "5:31:42 PM

DTM_SETFORMAT message

Sets the display of a date and time picker (DTP) control based on a given format string

wParam

Must be zero

lParam

A pointer to a zero-terminated format stringthat defines the desired display. Setting this parameter to NULL will reset the control to the default format string for the current style

For example, the format string "'Today is: 'hh':'m':'s ddddMMMdd', 'yyy" would produce output like "Today is: 04:22:31 Tuesday Mar 23, 1996".

DTS_UPDOWN

Places an up-down control to the right of the DTP control to modify date-time values. This style can be used in place of the drop-down month calendar, which is the default style.

Public Const DTM_SETFORMATA = &H1005

   '"SendMessageA hdtp, DTM_SETFORMATA, 0, ByVal "yyyy/M/d