Private Sub setgridcolor()For I As Integer = 0 To kundengrid.Rows.Count - 1 If kundengrid.Rows(I).Cells("IsDeleted").Value = "J" Then kundengrid.Rows(I).DefaultCellStyle.ForeColor = Color.Red End IfNextEnd Sub