Apre la combo prima di ricevere il fuoco

Sub Combo1_GotFocus()
SendKeys "%{Down}"
End Sub