I've been trying to remove rows from a listview I've produced. However the results are odd... The first remove works but when trying again it removes the wrong row. I've printed and used a messagebox to make sure that the value of the row highlighted is correct and it is...

Anyway heres what I've done:

Code:
Private Sub mnuRemove_Click()
Dim ToRemove As Integer
ToRemove = lvMain.SelectedItem
lvMain.ListItems.Remove (ToRemove)
End Sub
Probably something easy but any help appreciated. Thanks