组合框更改高度vb6？

Question

我有一个组合框，正在从SQL-SERVER填充一个名称列表。我想要做的是，让用户点击下拉菜单并显示所有名称而不用向下滚动。

Answer 1

假设组合的字体是一样的形式之一

Option Explicit 

Private Declare Function MoveWindow Lib "user32" _ 
       (ByVal hWnd As Long, ByVal x As Long, ByVal y As Long, _ 
       ByVal cx As Long, ByVal cy As Long, ByVal updt As Long) As Long 

Private Sub Form_Load() 
    Dim I As Long 

    Me.ScaleMode = vbPixels 
    With Combo1 
     MoveWindow .hWnd, .Left, .Top, .Width, .Height + (Me.TextHeight("W") * 11), 0 'why 11 and not 10? i realy don't know right now 
    End With 

    For I = 1 To 20 
     Combo1.AddItem "Item " & I 
    Next I 

End Sub