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()
  ' Aufklapphöhe neu festlegen
  Combo_SetDropDownHeight Me, Combo1, 300, 200
End Sub
 
 
 
Public Sub Combo_SetDropDownHeight(F As Form, _
  Combo As ComboBox, ByVal nHeight As Long, ByVal nwidth)
 
  With Combo
    MoveWindow .hwnd, _
      F.ScaleX(.Left, .Parent.ScaleMode, vbPixels), _
      F.ScaleY(.Top, .Parent.ScaleMode, vbPixels), _
      nwidth, nHeight, 1
  End With
End Sub

cu puppet

Wer ?berall seinen Senf dazu gibt, kommt schnell in den Verdacht ein W?rstchen zu sein!