VB - Dropdown the calendar of a date time picker control using code

[Krool]

It can be done easier

Option Explicit
Private Const VK_DOWN As Long = &H28
Private Const WM_SYSKEYDOWN As Long = &H104

Private Declare Function SendMessage Lib "user32.dll" _
                         Alias "SendMessageA" ( _
                         ByVal hWnd As Long, _
                         ByVal wMsg As Long, _
                         ByVal wParam As Long, _
                         ByVal lParam As Long) As Long
                         
Private Sub Command1_Click()
Call SendMessage(DTPicker1.hWnd, WM_SYSKEYDOWN, VK_DOWN, 0)  
End Sub