Listbox.clear出错

        Listbox1.Clear
        With Listbox1
            For i = 1 To rsNum.RecordCount
                .AddItem "现收" & rsNum.Fields("凭证号")
                rsNum.MoveNext
            Next i
        End With

显示 方法或数据成员未找到

Listbox 没有Clear属性吗？