VBA代码控制DTPicker控件的下拉日期表显示

DTPicker1控件的下拉按钮

请问怎么写代码可以使得DTPicker控件的下拉日期表显示出来呢?!

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _ (ByVal hWnd As Long, _ ByVal wMsg As Long, _ ByVal wParam As Long, _ lParam As Boolean) As Long Private Sub CommandButton1_Click() SendMessage DTPicker1.hWnd, &H100, &H73, &H3E0001 End Sub