List box with Multiselect set to Extended.
I have the following code on the click event of a list box.
Dim ctl As Control
Dim x As Variant
Set ctl = Me!lstLandParcelReminders
For Each x In ctl.ItemsSelected
If ctl.Selected(x) = -1 Then
ctl.Selected(x)...