Option Explicit

Private Declare Function MoveWindow Lib "user32" (ByVal _
    hwnd As Long, ByVal x As Long, ByVal y As Long, ByVal _
    nWidth As Long, ByVal nHeight As Long, ByVal bRepaint _
    As Long) As Long

Private Sub Form_Load()
  Dim i As Long
  Dim j As Long

  For j = 1 To 9
    For i = 65 To 90
      Me.Combo1.AddItem j & " " & Chr(i)
      Me.Combo2.AddItem j & " " & Chr(i)
    Next i
  Next j

  Me.Combo1.ListIndex = 0
  Me.Combo2.ListIndex = 0

  ComboboxSize Me.Combo2, 5000
End Sub

Private Sub ComboboxSize(ByRef cboCombo As ComboBox, Optional _
      ByVal lngHeight As Long = 5000)

  With cboCombo
    If .Style <> 1 Then
       MoveWindow .hwnd, .Left \ Screen.TwipsPerPixelX, _
            .Top \ Screen.TwipsPerPixelY, _
            .Width \ Screen.TwipsPerPixelX, _
            lngHeight \ Screen.TwipsPerPixelY, 1
      End If
   End With
End Sub