Listbox Control as Parameter

[vthokienj]

This seemingly simple piece of code is giving the 'run time error 424 object required' error. How do you pass an activeX listbox as a parameter to a module?

Public Sub btnAddToListbox_Click()
listboxSystemSelection.AddItem "item added"
    DisplayItemsInListbox (listboxSystemSelection) ' crashes here
End Sub

Public Sub DisplayItemsInListbox(ByRef thelistbox As ListBox)
    thelistbox.AddItem ("added this")
End Sub

I've tried ByVal, ByRef, neither, and MsForms.ListBox.
Thanks for any help.

 

[Juan Pablo González]

This works ok for me:

Private Sub CommandButton1_Click()
    ListBox1.AddItem "Item 1"
    
    CallList ListBox1
End Sub

Private Sub CallList(ByVal lbx As MSForms.ListBox)
    lbx.AddItem "Item 2"
End Sub

 

[RoryA]

You just need to remove the parentheses around the object you are passing:

DisplayItemsInListbox listboxSystemSelection

or use Call:

Call DisplayItemsInListbox(listboxSystemSelection)