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