VB列表框中怎么移除选中的几个选项

如图，当单击删除项按钮时怎么使选中的3项同时移除，

我这样写单击删除按钮：

Private Sub Command1_Click()
List1.RemoveItem List1.Index
End Sub

但是只能删除最后选中的一项，不能同时全部删除，高手教下我，谢谢啊

Private Sub Command2_Click()
For i = List1.ListCount - 1 To 0 Step -1
If List1.Selected(i) = True Then
List1.RemoveItem i
End If

Next
End Sub

Private Sub Form_Load()
For i = 1 To 10
List1.AddItem i
Next
End Sub