Private Sub dgv1_CellFormatting(ByVal sender As Object, ByVal e As _
  System.Windows.Forms.DataGridViewCellFormattingEventArgs) Handles _
  dgvProjekte.CellFormatting
        If Me.dgvProjekte.Columns(e.ColumnIndex).Name = "geschlossen" Then
            If e.Value = "1" Then
                Me.dgvProjekte.Rows(e.RowIndex).DefaultCellStyle.ForeColor = _
                  Color.Red
            End If
        End If
       End Sub

mit freundlichen Grüßen
Sven