fantasia sotto le scarpe, eh?

ferme restando le dichiarazioni API, la routine
Sub Command1_Click()
sostituiscila con questa, che volendo potresti inserire in un Modulo, visto che l'ho resa generale:
codice:
Sub EspandiCombo(frm As Form, cmb As ComboBox, numItemsToDisplay As Integer)
Dim pt As POINTAPI
Dim rc As RECT
Dim cWidth As Long
Dim newHeight As Long
Dim oldScaleMode As Long
Dim numItemsToDisplay As Long
Dim itemHeight As Long
oldScaleMode = frm.ScaleMode
frm.ScaleMode = vbPixels
cWidth = Combo1.Width
itemHeight = SendMessage(cmb.hWnd, CB_GETITEMHEIGHT, 0, ByVal 0)
newHeight = itemHeight * (numItemsToDisplay + 2)
Call GetWindowRect(cmb.hWnd, rc)
pt.x = rc.Left
pt.y = rc.Top
Call ScreenToClient(frm.hWnd, pt)
Call MoveWindow(cmb.hWnd, pt.x, pt.y, cmb.Width, newHeight, True)
Call SendMessage(cmb.hWnd, CB_SHOWDROPDOWN, True, ByVal 0)
frm.ScaleMode = oldScaleMode
End Sub
poi nell'evento Form_Load chiamala, passando come parametri, il nome del Form, il nome del Combo e il numero di elementi che deve visualizzare, ad esempio:
codice:
EspandiCombo Me, Combo1, 34
Boolean