Rimuovere o Cancellare un Items da Listbox

For M = 0 To CampiPrimary.Items.Count - 1
If Stringa = CampiPrimary.Items(I) Then

CampiPrimary.Items.Remove(I)

Exit For
End If
Next