or
Dim cpolicy As HtmlInputHidden = Pages.TravelInsuranceSalesSystem1.Get(Of HtmlInputHidden)("id=ctl00_ContentPlaceHolder1_TestGrid_ctl02_cpolicy")
For Each r As HtmlTableRow In Pages.TravelInsuranceSalesSystem1.ContentPlaceHolder1TestGridTable.AllRows
if r.RowIndex <> 0 then
'ignore the header row
For Each c As HtmlTableCell In r.Cells
if c.CellIndex = 0 then
'column 1 only
Dim cpolicy As HtmlInputHidden = c.Get(Of HtmlInputHidden)("id=~cpolicy")
if cpolicy.Equals("TI") then
Log.WriteLine("cpolicy:" & cpolicy.Value )
end if
end if
Next
end if
Next