>i have 12,000 records in a list box and i want to select/deselect it all. my code goes like this:
>
>(IN COMMAND BUTTON - Click Event)
>
>Thisform.LockScreen = .T.
>FOR nloop = 1 TO Thisform.List1.ListCount
> Thisform.List1.Selected(nloop) = ! Thisform.List1.Selected(nloop)
>ENDFOR
>Thisform.LockScreen = .F.
>
>this works very slow, is there any solution?
>Thanks in advance...

---

Don't know at this moment, but what about a mulitselectgrid. Then you can simply use something like

replace all dbcheck with .T.

you can have that extra (check) field at runtie by using

Select .T.,selectionfields fro mytable where ... into ...