VB6 Select list item

Hi. To begin with let me tell you that I'm using VB6. So here's my question. I have a list and a button, When I click the button it removes the top most entry in the list, how do I get it to select and highlight the next item in the list? By the way I'm new to this.

Thanks in advance.