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