Deleting an item from a list

[BubbleLife]

Hi all,

I'm currently writing a program where you can add items to a listbox, and there is a button to delete the highlighted item. I have tried to do it similar to:

Private Sub Delete_Click()
Dim DelMe as string

DelMe = List1.selected
List1.remove(DelMe)
End Sub

Well, that's really the pseudocode for what I'm trying to do. Obviously it won't work, since I must specify an index. However, I will not know the index, since it depends on which item the user clicks.

How do I do this?

Thanks