Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 
        dgv.ReadOnly = True
 
        dgv.Rows.Add(New String() {"1", "wert1", "wert2"})
        dgv.Rows.Add(New String() {"1", "wert3", "wert4"})
        dgv.Rows.Add(New String() {"1", "wert5", "wert6"})
 
        dgv.Rows(1).Cells(1).Style.BackColor = Color.LightGray
 
        dgv.Rows(1).Cells(1).ReadOnly = False
    End Sub

Grüße Andi

EALA FREYA FRESENA

Grüße Andi