在VB中实现向函数传递不定个数参数

新建一个EXE工程，加入一个Listbox1和Command1，代码如下：

Option Explicit

Public Sub TransferPA(LST As ListBox, ParamArray Items())
    Dim i
    With LST
         .Clear
       For Each i In Items
         .AddItem i
       Next
    End With
End Sub

Private Sub Command1_Click()
    TransferPA List1, "ListItem1", "ListItem2", "ListItem3"
End Sub