Would .lstFiles.Clear when Count LT 1 would assure a ListIndex of zero? Is the result different with V8?

>I have a listbox and the user clicks an Add button to select files to add
>the the list.
>
>The Remove button's click event calls this code:
>
>

>  LOCAL cFileName, cMessage
>	
>  WITH ThisForm
>	
>  cFileName = .lstFiles.List(.lstFiles.ListIndex)
>	
>  cMessage = "Remove file '" + cFileName + "'?"
>	
>  IF MESSAGEBOX(cMessage,4+32+256) = 6
>			
>    .lstFiles.RemoveItem(.lstFiles.ListIndex)
>			
>  ENDIF
>
>** For testing
>**WAIT WINDOW TRANSFORM(.lstFiles.ListIndex)	
>
>** .lstFiles.SetFocus()
>
>	
>  .cmdBegin.Enabled = (.lstFiles.ListCount > 0)
>  .cmdRemove.Enabled = (.lstFiles.ListIndex > 0)
>
>  ENDWITH
>
>RETURN
>

>
>If I add 3 files, then select file 2 and click Remove, the item is removed and the
>highlight bar moves to the next list item, which is now 2.
>
>But the last line of code, to ensure that the Remove button is enabled, doesn't work.
>The ListIndex is 0, so the button is not enabled. But the item Is highlighted.
>
>If I step through in the debugger, works fine. If you uncomment the WAIT WINDOW, you
>see that the ListIndex is zero.
>
>If I uncomment the SetFocus, it works fine.