请问如何删除list中选中的行?(急,在线等)

[heiyet]

我现在需要把list中所选中的行删除,请问该如何操作?
我是这样做的,但有错误:
Private Sub Command1_Click()
Dim I, a
a = List1.ListIndex
I = List1.Selected(a)
List1.RemoveItem I
End Sub

谢谢.

[viena]

List1.RemoveItem List1.ListIndex

[heiyet]

非常感谢.搞了半天没搞出来.