使用ListBox调用函数

Question

我创建了一个函数，取两个列表框，从一个列表框中取一个值，然后将该值添加到另一个列表框中。我把功能放在我的模块中。这里是 代码。

这是功能：

Function addtolist(selectionlist As ListBox, listselected As ListBox)

For i = 0 To selectionlist.ListCount - 1
    If selectionlist.selected(i) = True Then
        listselected.AddItem selectionlist.List(i)

    End If

Next i

For i = selectionlist.ListCount - 1 To 0 Step -1
    If selectionlist.selected(i) = True Then
        selectionlist.RemoveItem i

    End If

Next i
End Function

在私人子项目中，点击一下按钮，我正在执行以下操作：

Call addtolist(selectionlist, listselected)

我不断遇到运行时错误＆＃39; 13＆＃39;类型不匹配。

请帮忙！

Answer 1

从代码和公开的错误，我要说你必须将函数参数类型的声明更改为detailDate format：

MSForms.ListBox