Dim i
Set m_WebCheckBox=Descrīption.Create()
m_WebCheckBox("type").Value="checkbox"
set All_WebCheckBox=Browser("Untitled Page").Page("Untitled Page").Childobjects(m_WebCheckBox)
n=All_WebCheckBox.Count()
for i=0 to n-1
All_WebCheckBox(i).Set "ON"
next