Espero me puedan ayudar saludos!
Código:
Public Sub CheckedContacto(ByVal sender As Object, ByVal e As System.EventArgs) For Each grdItem As GridDataItem In rgridContactos.Items Dim rowIndex As Integer = 0 Dim chk As New CheckBox chk = DirectCast(grdItem("TemplateColumn").FindControl("ChkContacto"), CheckBox) If chk.Checked Then rowIndex = grdItem.RowIndex Session("Contacto") = grdItem.Cells(4).Text.ToString() Me.Session("DtCompromiso") = Nothing chk.Checked = True Else chk.Checked = False End If Next