How to check and uncheck the perticular check box using QTP script

1) script for check the perticular check box

Browser("OLM Training").Page("Cart").WebCheckBox("WebCheckbox12").Set "ON"


2) script for un check the perticular check box

Browser("OLM Training").Page("Cart").WebCheckBox("WebCheckbox12").Set "OFF"


3) select the perticulat item from check box.


For i=1 to rc
  Table_linkText=Browser("projectCentre QTP:TEST-AT:").Page("projectCentre QTP:TEST-AT:").Frame("RegRegRegFrame").WebTable("...").GetCellData(i,3)
If (Expected_Link=Table_linkText) then
  Browser("projectCentre QTP:TEST-AT:").Page("projectCentre QTP:TEST-AT:").Frame("RegRegRegFrame").WebTable("...").ChildItem(i,1,"WebCheckBox",0).Set "ON"