The following example uses a SpinButton to control the width of the drop-down list of a ComboBox. The user changes the value of the SpinButton, then clicks on the drop-down arrow of the ComboBox to display the list.

To use this example, copy this sample code to the Declarations portion of a form. Make sure that the form contains: 

Private Sub SpinButton1_Change() ComboBox1.ListWidth = SpinButton1.Value Label1.Caption = "ListWidth = " _ & SpinButton1.Value End Sub Private Sub UserForm_Initialize() Dim i As Integer For i = 1 To 20 ComboBox1.AddItem "Choice " _ & (ComboBox1.ListCount + 1) Next i SpinButton1.Min = 0 SpinButton1.Max = 130 SpinButton1.Value = Val(ComboBox1.ListWidth) SpinButton1.SmallChange = 5 Label1.Caption = "ListWidth = " _ & SpinButton1.Value End Sub