Сравнение dgv между собой с таймингом

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Timer1.Interval = 1000
        Timer1.Enabled = True
        'таблица на регистрации
        dx.Columns.Add("ФИО", GetType(String))
        dx.Rows.Add("Иванов Иван")
        dx.Rows.Add("Иванов Денис")
        RegDataGridView.DataSource = dx
        'таблица на вводе
        ds.Columns.Add("ФИО", GetType(String))
        ds.Rows.Add("Иванов Никита")
        ds.Rows.Add("Иванов Калита")
        InputDataGridView.DataSource = ds
        'Таблица кого нет на месте - стобец Time содержит количество секунд с момент добавления
        dd.Columns.Add("ФИО", GetType(String))
        dd.Columns.Add("Time", GetType(Long)).DefaultValue = 0 ' по умолчанию при добавлении количество прошедших минут = 0
        dd.Rows.Add("Иванов Ларгус")
        dd.Rows.Add("Иванов Владимир")
        dd.Rows.Add("Иванов Сергей")
        NetnamesteDataGridView.DataSource = dd
        'таблица общего графика сотрудника
        dm.Columns.Add("ФИО", GetType(String))
        dm.Rows.Add("Иванов Иван")
        dm.Rows.Add("Иванов Владимир")
        dm.Rows.Add("Иванов Сергей")
        dm.Rows.Add("Иванов Денис")
        dm.Rows.Add("Иванов Никита")
        dm.Rows.Add("Иванов Илья")
        dm.Rows.Add("Иванов Калита")
        dm.Rows.Add("Иванов Ларгус")
        GrafikDataGridView.DataSource = dm
    End Sub
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        ' для всех строк таблицы значение в столбце time увеличиваем на 1 секунду
        For Each R As DataRow In dd.Rows
            R("time") += 1
        Next
    End Sub
 
    ' форматирование значения
    Private Sub NetnamesteDataGridView_CellFormatting(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellFormattingEventArgs) Handles NetnamesteDataGridView.CellFormatting
        If e.ColumnIndex = 1 Then ' нужный столбец
            e.Value = TimeSpan.FromSeconds(e.Value).ToString ' преобразовываем количество секунд в интервал и переводим в строковое представление
            e.FormattingApplied = True  ' устанавливаем признак того, что значение отформатировано
        End If
    End Sub

        dd.Columns.Add("Time", GetType(TimeSpan)).DefaultValue = 0 ' по умолчанию при добавлении количество прошедших секунд = 0
...
    Private delta As New TimeSpan(10000000) ' одна секунда
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        ' для всех строк таблицы значение в столбце time увеличиваем на 1 секунду
        For Each R As DataRow In dd.Rows
            R("time") = R("time").Add(delta)
        Next
    End Sub

NetnamesteDataGridView.DataSource = dd