Hi,

I have unbounded multiselect listbox on SplitForm. When I move to next record, I need to unselect all items in listbox (set it to default unselected state). I am trying to do it in form's OnCurrent event. I placed this code there:

Private Sub Form_Current()
For i = 0 To lstColors.ListCount - 1
lstColors.Selected(i) = False
Next i
End Sub

But nothing happens when I navigate through records. Code enters this routine, but nothing happens with listbox. Attached is example database.
Can anyone help me with this ?

Attachment 2789