<Extension>
    Public Sub UncheckAllRows(ByVal Grid As TenTec.Windows.iGridLib.iGrid, ByVal ColumnKey As String)
        Dim column = Grid.Cols(ColumnKey)

        If column.CellStyle.Type.Equals(iGCellType.Check) Then
            For Each cell As iGCell In column.Cells
                cell.Value = CheckState.Unchecked
            Next
        End If
    End Sub

    <Extension>
    Public Sub UncheckAllRows(ByVal Grid As TenTec.Windows.iGridLib.iGrid, ByVal ColumnKey As String)
        For Each cell As iGCell In Grid.Cols(ColumnKey).Cells
            If Not cell.Value Is Nothing AndAlso cell.Value.Equals(True) Then
                cell.Value = False
            End If
        Next
    End Sub