[求助]在ListBox中添加checkbox的复选框

DeLiN001

点击CommandButton1按钮自动将复选框按钮添加到列表框中.

Dim mycheckbox As Control
Private Sub CommandButton1_Click()
Set mycheckbox = ListBox1.Control.Add("forms.checkbox.1", "mycheckbox", True)
End Sub

列表框的 ListStyle 属性设置为“1 - fmListStyleOption”，MultiSelect 为“1 - fmMultiSelectMulti”

运行了说编译错误,求高手帮小弟看看是那里写错还是还有什么设置？谢谢了!