Private Function FindRowWithName(ByVal name As String) As Integer
        For Each row As DataGridViewRow In dgv_k1.Rows
            If row.Cells(0).Value.ToString = name Then
                Return row.Index
            End If
            row.Selected = True
        Next
    End Function
 
    Private Sub cmd_copytime_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles cmd_copytime.Click
        FindRowWithName(cb_driver.Text)
        Dim int_training As Integer = 7
        If cb_training.Checked = True Then
            dgv_k1.Rows(FindRowWithName(cb_driver.Text)).Cells( _
              int_training).Value = tb_summarytime.Text
        End If
 
    End Sub