传递Listbox1出错

[化境者]

Private Sub UserForm_Click()
addItem Me.ListBox1, "ewrafsd"
End Sub

Function addItem(LB As ListBox, Value As String)
With LB
    .addItem Value
End With
End Function

传递Listbox1出错！有谁知道原因或解决方法吗？？

[化境者]

自頂！！望高手能看到！！

[一如既往哈]

把函数中的As ListBox去掉吧

[of123]

函数代码没有问题，可以运行。 1 检查 UserForm 是否有效的控件名称。 2 检查 ListBox1 是否有效的 ListBox 控件名称或该控件是否存在。