listbox不能用代码全选？解决方法

listbox不能用代码全选？
long   i
   
lb_1.ExtendedSelect   =   TRUE   
  for   i   =   1   to   lb_1.TotalItems()   
  lb_1.SelectItem(i)   
next

执行后，没有选择任何项目
------解决方案--------------------
mutilselect模式下用setstate方法
long  i 
  
lb_1.ExtendedSelect  =  TRUE  
 for  i  =  1  to  lb_1.TotalItems()  
  lb_1.SetState (i,true )
next