Delete in listbox

[Stephen Bazemore]

Ok, heres my problem.

I've got two listboxes. I've got a popup menu when I rightclick in each listbox. When I hit delete in the menu it doesnt delete the selected item in the listbox, but the item at the very top. Here's what i've got.

Private Sub mnuDEL2_Click()
Dim x As Variant
Dim xx As Variant
x = lstfilename.Selected
xx = lstURL.Selected
lstfilename.RemoveItem (x)
lstURL.RemoveItem (xx)
End Sub

I get an error "Argument Not Optional"

Any help is appreciated..