Public Sub Button1_Click(ByVal sender As Object, ByVal e As 

System.EventArgs)

        Dim i As Integer

        For i = 0 To datagrid1.Items.Count

            Dim cb As New CheckBox()

            cb = datagrid1.Items(i).FindControl("Yes")

        Next

    End Sub