>DIMENSION aContents[ 5 ]
>
>FOR lnI = 1 TO 5
>aContents[ lnI ] = "A"+ALLTRIM(STR(lnI))
>ENDFOR
>WITH Thisform.List1
>  .RowSourceType = 5
>  .RowSource = "aContents"
>  .Requery()
>  .ListIndex = 1
>ENDWITH

Your array went out of scope. That's why we both suggested to use a property of the form or listbox.