Can't use the CTRL key on Extended list box

[azizrasul]

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) = True
        Else
            ctl.Selected(x) = False
        End If
        Me.Refresh
    Next x
     
    Set ctl = Nothing

How do I amend the above code so that when pressing the CTRL key, the correct item are selected\deselected e.g. when I have 3 items all selected on a list box and press CTRL on the middle item, the bottom 2 items deselect rather than just the middle one.

 

[azizrasul]

Fluff, I did not create a duplicate thread, I simply edited my original thread so don't know how the duplicate got created!

 

[Jaafar Tribak]

Fluff, I did not create a duplicate thread, I simply edited my original thread so don't know how the duplicate got created!

Couldn't reproduce the problem.

Is that listbox on a userform or on a worksheet ?

 

[azizrasul]

Userform.

Changed Me.Refresh to Me.Requery and it worked.