Pregunta datacombo

Hola como estás, mi preguntas es la siguiente:
Como puedo desplegar un datacomo cuando recibe el foco, tengo la función y lo hace bien pero solo con el combo, ten envío el código que tengo para que me orientes
De antemano muchas gracias
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
Private Sub Combo1_GotFocus()
'ComboBox desplegado
Dim Resp As Long
Resp = SendMessageLong(Combo1.hwnd, &H14F, True, 0)
End Sub
Private Sub DataCombo1_GotFocus()
Dim Resp As Long
Resp = SendMessageLong(DataCombo1.hwnd, &H14F, True, 0)
End Sub
Private Sub Form_Load()
Combo1.Clear
Combo1.AddItem "Objeto 2"
Combo1.AddItem "Objeto 3"
Combo1.AddItem "Objeto 4"
Combo1.AddItem "Objeto 5"
Combo1.AddItem "Objeto 6"
Combo1.AddItem "Objeto 7"
Combo1.Text = "Objeto 1"
MiSql = "SELECT * FROM movil ORDER BY nummovil"
Adodc1.RecordSource = MiSql
Adodc1.Refresh
Set DataCombo1.RowSource = Adodc1
DataCombo1.ListField = "nummovil"
End Sub