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

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Timer1.Interval = 1000
        Timer1.Enabled = True
    End Sub
 
    Private Sub Timer_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim row As DataGridViewRow
        For Each row In dgv3.Rows
            row.Cells("Time").Value += Timer1.Interval
            'здесь должна быть проверка того, что текущую строку нужно обрабатывать, 
            'т.е. Ваше условие на присутствие в dgv1 или dgv2
            If row.Cells("Time").Value > 60000 Then
                row.DefaultCellStyle.BackColor = Color.Red
            End If
        Next
    End Sub

row.Cells("Time").Value += TimeSpan.FromMilliseconds(Timer1.Interval)

 
Dim row As DataGridViewRow
        Dim d As TimeSpan = TimeSpan.FromSeconds(6)
        For Each row In dgv3.Rows
            row.Cells("Time").Value += TimeSpan.FromMilliseconds(Timer1.Interval)
            'здесь должна быть проверка того, что текущую строку нужно обрабатывать, 
            'т.е. Ваше условие на присутствие в dgv1 или dgv2
            If row.Cells("Time").Value > d Then
 
                row.DefaultCellStyle.BackColor = Color.Red
                row.Cells("Time").Value = TimeSpan.FromMilliseconds(0)
            End If
        Next

Dim secundomer As TimeSpan
 Dim secundomerG As Boolean = False
Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
 
        If secundomerG Then secundomer = TimeSpan.FromSeconds(secundomer.TotalSeconds + 1)
 
 For Each row9 As DataGridViewRow In DataGridView8.Rows
'если в dgv3 находит Иванова - форматирую значение
 If row9.Cells(0).Value.ToString() = "Иванов Иван" Then
         row9.Cells(2).Value = secundomer.Hours.ToString("00:") & secundomer.Minutes.ToString("00:") & secundomer.Seconds.ToString("00")
            End If
Next
end sub
 If row9.Cells(0).Value.ToString() = "Иванов Иван" Then 'Если в dgv3 есть Иванов секундомер активируется
                    secundomerGO1 = True
                End If
If row1.Cells(11).Value.ToString() = "Иванов Иван" Or row11.Cells(11).Value.ToString() = "Иванов Иван" Then
                    secundomer1 = TimeSpan.Zero ' если Иванова нет в dgv1 или в dgv2 то секундомер обнуляется
                    secundomerGO1 = False
                End If

Private Function DGVCheck(DGV As DataGridView, FIO As String)
        For Each row In DGV.Rows
            If row.Cells("FIO").value = FIO Then
                Return True
            End If
        Next
        Return False
    End Function
 
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
 
 
        For Each row As DataGridViewRow In dgv3.Rows
            If Not DGVCheck(DGV1, row.Cells("Fio").Value) And Not DGVCheck(DGV2, row.Cells("FIO").Value) Then
                row.Cells("Time").Value += TimeSpan.FromMilliseconds(Timer1.Interval)
            Else
                'row.Cells("Time").Value = TimeSpan.FromMilliseconds(0) 'Это обнулит время записаное в Колонке Time 
            End If
 
        Next
    End Sub