ListRows Property Example

The following example uses a SpinButton to control the number of rows in 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:

• A ComboBox named ComboBox1.
• A SpinButton named SpinButton1.
• A Label named Label1.

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 = 12 SpinButton1.Value = ComboBox1.ListRows Label1.Caption = "ListRows = " & SpinButton1.Value End Sub Private Sub SpinButton1_Change() ComboBox1.ListRows = SpinButton1.Value Label1.Caption = "ListRows = " & SpinButton1.Value End Sub