Public Function ListDelRows(ListBoxDel As ListBox)
'列表框数据源必需为值列表  
 Dim i      As Byte
    Dim sel    As Variant
    Dim str, Delstr As String
    str = ListBoxDel.RowSource & ";"
    For Each sel In ListBoxDel.ItemsSelected
        For i = 0 To ListBoxDel.ColumnCount - 1
            Delstr = Delstr & ListBoxDel.Column(i, sel) & ";"
        Next
        str = Replace(str, Delstr, "", 1)
        Delstr = ""
    Next
    ListBoxDel.RowSource = str
End Function