如何把listbox1.listcount当作过程的参数

Question

    For i = 0 To ListBox1.ListCount
        
    Next有很多LISTBOX，需要做的事件是相同的，写一个SUB怎么把它当作参数了？还有比如Textbox1.text当作参数

Answer 1

大概我的需求是这样的：Private Sub Form_Load()
    lst (List1)
End SubSub lst(ls As Control)
    Dim l As Control
    l = ls
    MsgBox l.ListCount
End Sub

Answer 2

Option Explicit
Private Sub Command1_Click()
    ThroughList List1
End SubPrivate Sub Form_Load()
    List1.AddItem "Item1"
    List1.AddItem "Item2"
    List1.AddItem "Item3"
End SubSub ThroughList(ls As ListBox)
    Dim i As Long
    For i = 0 To ls.ListCount - 1
       MsgBox ls.List(i)
    Next
End Sub

Answer 3

Option Explicit
Private Sub ListOp(ls As ListBox, te As TextBox)
Dim i As Long
For i = 0 To ls.ListCount
        te.Text = te.Text & ls.List(i)
Next i
End Sub
Private Sub Command1_Click()
ListOp List1, Text1
ListOp List2, Text2
End Sub