I have this piece of code:

For x = 0 To frmOnderhoudPremies.lstFonds.ListCount - 1
If Mid(frmOnderhoudPremies.lstFonds.List(x), 144, 1) = "J" Then
frmOnderhoudPremies.lstFonds.Selected(x) = True
Else
frmOnderhoudPremies.lstFonds.Selected(x) = False
End If
Next x

When running and it comes to the line:
frmOnderhoudPremies.lstFonds.Selected(x) = True

the program jumps (unwanted) to:
Private Sub lstFonds_Click()

Why does this happen and how can i make it that this wil not happen?

Herman