Remove selected item from listbox

If you are going to use the same code for 2 or more listbox controls, you might want to use another sub.

e.g.

Private Sub ListBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
  RemoveItem
End Sub

Private Sub RemoveItem()
  With ActiveControl
    If .Selected(.ListIndex) Then .RemoveItem .ListIndex
  End With
End Sub