Sorry ...this interface is a little screwy...

With thisform....listname

FOR I = 1 TO .Listcount

IF .Selected(I)
Do some code

Exit
ENDIF

ENDFOR

Endwith

Of course this is assuming that you have multiselect = .f.

Do Some code may simply to set .Listindex = I and refresh()


Hope it helps ...


mike