列表框：ListBox.RemoveItem 方法

 
Function RemoveListItem(ctrlListBox As ListBox, _
        ByVal varItem As Variant) As Boolean

    ' Trap for errors.
    On Error GoTo ERROR_HANDLER

    ' Remove the list box item and set the return value
    ' to True, indicating success.
    ctrlListBox.RemoveItem Index:=varItem
    RemoveListItem = True

    ' Reset the error trap and exit the function.
    On Error GoTo 0
    Exit Function

' Return False if an error occurs.
ERROR_HANDLER:
    RemoveListItem = False

End Function

参考示例：列表框里加项和减项示例[Access软件网] http://www.accessoft.com/article-show.asp?id=2265