请教ListBox中怎么删除鼠标选定的一项

请问ListBox中如何删除鼠标选定的一项
就是鼠标单击某一项后，再单击一按钮就可以删除选中的项

请问如何实现？

[解决办法]
Private Sub Command1_Click()

If List1.ListIndex <> -1 Then
List1.RemoveItem List1.ListIndex
End If

End Sub