UFT:Clicking Checkbox present in Webtable

Rem Method 1
Browser("Creationtime:=0").WebTable("Column names:=;;X;;.*").ChildItem(1,1,"WebCheckbox",0).Set "ON"

Rem Method 2
Set CHKObj = Browser("Creationtime:=0").WebTable("Column names:=;;X;.*").ChildItem(1,1,"WebCheckbox",0)
If typename(CHKObj) = "HtmlCheckBox" Then
CHKObj.Set "ON"
End IF


Rem Method 3
Rem Compare Some text in the table with some unique data

NextRowdata = "XYZ"
Set TableObj = Browser("Creationtime:=0").WebTable("Column names:=;;X;.*")
RC = TableObj.GetROProperty("ROWS")
If RC>0 Then
    For ROWID = 1 To RC
    GetData = TableObj.GetCellData(ROWID,2)   
    If lcase(trim(GetData)) = Lcase(trim(NextRowdata) Then
    Exit For
    End If
    Next

End If

Set CHKObj = TableObj.ChildItem(RowID,1,"WebCheckbox",0)
If typename(CHKObj) = "HtmlCheckBox" Then
CHKObj.Set "ON"
End IF