如何讓List清單多重點選的資料刪除?(編號：2801)

Private Sub comDel_Click()
'刪除所點選的資料
listbox裡的MultiSelect的屬性我選2-進階多重選取
If List1.ListIndex ＞= 0 Then
　　　 List1.RemoveItem List1.ListIndex
　　End If
　　
End Sub
如果這樣寫只能單一個選取刪除,如何讓我多重選取刪除.....
各位高手請幫幫新手小弟