Dim obj_check
Set obj_check=Description.Create
obj_Check("micclass").value
= "DelphiCheckBox"
Dim allcheckboxes
Set allcheckboxes=DelphiWindow("NewCell_Selection_Window").ChildObjects(obj_check)
a = allcheckboxes.count()
msgbox a
For i=0
to a-1
If varStatus =
True
Then
allcheckboxes(i).set
"ON"
End
If
Next