Const WM_KEYDOWN As Long = &H100 Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _ (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Private Sub Command1_Click() SendMessage DTPicker1.hwnd, WM_KEYDOWN, &H73, &H3E0001 End Sub