Scroll listbox to the top - no selected records

[brharrii]

I'm using the following code to clear selected records from a listbox after a button is pressed:

        For i = 0 To lstProducts.ListCount - 1
        lstProducts.Selected(i) = False
    Next

The code works great except that it leaves the listbox scrolled all the way to the bottom. What is the best way to scroll back up to the top of the listbox without selecting another record?

Thanks!

 

[Cronk]

What happens if you start deselecting from the last row in the list box?

 

[brharrii]

Hi cronk, thanks for the suggestion, I'm not sure how to do that though?

 

[Cronk]

Um,
For i = lstProducts.ListCount - 1 to 0