清單內選項多重選取的刪除(編號：2727)

Dim k As Integer
For k = 0 To 1000
　　　　If List1.Selected(k) = True Then----＞不正確的屬性
　　　　　 List1.RemoveItem (k)　　　　　　　陣列索引值
　　　　End If
　　Next
End Sub