Dim oWebChkDesc2,skillObj,skillObjCount,o
Set oWebChkDesc2=description.Create
oWebChkDesc2("type").value="checkbox"
oWebChkDesc2("html tag").value="INPUT"
oWebChkDesc2("name").value="xxx"
Set skillObj=Browser("xxxx").Page("xxxx").WebElement("xxx").ChildObjects (oWebChkDesc2)
skillObjCount=skillObj.count
'msgbox counts
If skillObjCount>0 Then
For o=0 to o=skillObjCount-1
skillObj(o).Set "ON"
Next
Set oWebChkDesc2=description.Create
oWebChkDesc2("type").value="checkbox"
oWebChkDesc2("html tag").value="INPUT"
oWebChkDesc2("name").value="xxx"
Set skillObj=Browser("xxxx").Page("xxxx").WebElement("xxx").ChildObjects (oWebChkDesc2)
skillObjCount=skillObj.count
'msgbox counts
If skillObjCount>0 Then
For o=0 to o=skillObjCount-1
skillObj(o).Set "ON"
Next
End If