Private Sub cmd_Delete_Click()
Dim NumListCount As Long '列表框中记录的行数
Dim varItem As Variant
Dim DelItem As String
Dim arrStr() As String
Dim i As Long
For Each varItem In Me.List_Book.ItemsSelected
DelItem = DelItem & Me.List_Book.ItemData(varItem) & ";"
Next varItem
Debug.Print DelItem
arrStr = Split(DelItem, ";")
' Debug.Print UBound(arrStr), LBound(arrStr)
For i = 0 To UBound(arrStr) - 1
Me.List_Book.RemoveItem arrStr(i)
Next i
End Sub