Public Sub CreateNewCombo()
    iCount = iCount + 1
 
    Load Combo1(iCount)
    Combo1(iCount).Visible = True
 
    If iCount = 1 Then
        Combo1(iCount).Top = 150 ' Erste auf 150 Twips von oben   
    Else
        Combo1(iCount).Top = Combo1(iCount - 1).Top + 1.5 * Combo1(iCount - _
          1).Height 
        ' Weitere Comboboxen immer halbe Höhe unter der letzten Combobox
    End If
 
End Sub