Private Sub cmdRemove_Click()
    Dim i As Integer
 
        For i = 0 To (lstCompNrSelected.ListCount - 1)
            If (lstCompNrSelected.Selected(i) = True) Then
                lstCompNrSelected.RemoveItem (i)
 
                lstCompNrSelected.Refresh
            End If
        Next i
 
End Sub