Bueno, la Scroll no se que tiene que ver aqui.. Este codigo ya lo revise y funciona muy bien
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 Integer
For i = 1 To 50
Combo1.AddItem i
Next i
Combo1.ListIndex = 0
SizeCombo Me, Combo1
End Sub
Public Sub SizeCombo(frm As Form, cbo As ComboBox)
Dim cbo_left As Integer
Dim cbo_top As Integer
Dim cbo_width As Integer
Dim cbo_height As Integer
Dim old_scale_mode As Integer
old_scale_mode = frm.ScaleMode
frm.ScaleMode = vbPixels
cbo_left = cbo.Left
cbo_top = cbo.Top
cbo_width = cbo.Width
cbo_height = frm.ScaleHeight - cbo.Top - 100
frm.ScaleMode = old_scale_mode
MoveWindow cbo.hwnd, cbo_left, cbo_top, cbo_width, cbo_height, 1
End Sub
