*!* Form.Init
PUBLIC x
DIMENSION x[ 10 , 2 ]
FOR i= 1  TO  10 
 x[i, 2 ]=IIF(MOD(i, 2 )= 0 ,.T.,.F.)
 x[i, 1 ]=SYS( 2015 )
ENDFOR 
WITH this.list1
 .RowSourceType=  0 
 FOR i= 1  TO ALEN(x, 1 )
  .AddItem(IIF(x[i, 2 ],'','\')+x[i, 1 ],i)
 ENDFOR 
ENDWITH