DropDownLines Property Example

This example creates a combo box with 10 list lines.

With Worksheets(1).Shapes.AddFormControl(xlDropDown, _
        Left:=10, Top:=10, Width:=100, Height:=10)
    .ControlFormat.DropDownLines = 10
End With