Debemos declarar :

Private Declare Function SendMessageLong Lib "user32" Alias "SendMessageA"
        (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long,
         ByVal lParam As Long) As Long

Para desplegar la lista :

   res = SendMessageLong(Combo1.hwnd, &H14F, True, 0)

Para plegarla :

   res = SendMessageLong(Combo1.hwnd, &H14F, false, 0)

Nota : La lista se cierra automáticamente cuando otro control (o el formulario) obtiene el foco.