Descriptive Programming to check all checkboxes in a webpage

Usage of Description Object is shown below

Creates a new, empty description object in which you can add collection of properties and values in order to specify the description object in place of a test object name in a step.

Set Button=Description.Create()

Button("type").Value="submit"
Button("name").Value="Google Search"
Button("html tag").Value="INPUT"

Browser("Google").Page("Google").WebButton(Button).Click

TO CHECK ALL THE CHECKBOXES ON A PAGE USING CHILDOBJECTS PROPERTY

Dim obj_check

Set obj_check=Description.Create

obj_Check("html tag").value="INPUT"
obj_Check("type").value="checkbox"

Dim allcheckboxes
Set allcheckboxes=Browser("Browser").Page("orkut - home").ChildObjects(obj_check)
a= allcheckboxes.count()
msgbox a

For i=0 to (a-1)
allcheckboxes(i).Set "ON"
Next