Dim intCounter As Integer
Dim intRowHashCode As Integer
GetTableHashCode = grdTable.GetHashCode
 
For intRow As Integer = 0 To grdTable.RowsCount - 1
    intRowHashCode = grdTable.Rows(intRow).GetHashCode
 
    For intColumn As Integer = 0 To grdTable.ColumnsCount - 1
        intCounter += 1
        intRowHashCode = intRowHashCode Xor (intCounter + (intColumn + 1))
        If grdTable(intRow, intColumn).Value IsNot Nothing Then
              intRowHashCode = intRowHashCode Xor (grdTable(intRow, _
                intColumn).Value.GetHashCode + intCounter)
        End If
    Next
 
    GetTableHashCode = GetTableHashCode Xor (intRowHashCode + (intRow + 1))
Next