Hola Jaime
Espero te sirva:
anda a general y declara esto:
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
carga el combobox con los datos que deseas seleccionar y luego en sub Form_Load() escribe esto:
Dim Resp As Long
Resp = SendMessageLong(Combo1.hwnd, &H14F, True, 0)
donde combo1, es el nombre del combobox que deseas que se despliegue.
Y eso es todo, espero que sea lo que andabas buscando.
