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

Private Sub DataGridView1_CellFormatting(sender As Object, e As _
  DataGridViewCellFormattingEventArgs) Handles DataGridView1.CellFormatting
  Dim dgv = DirectCast(sender, DataGridView)
  If e.RowIndex >= 0 AndAlso e.ColumnIndex = 0 Then 'Index einer beliebigen 
  ' sichbaren Spalte
    Dim zeile = dgv.Rows(e.RowIndex)
    If CStr(zeile.Cells("geschlossen").Value) = "1" Then
      zeile.DefaultCellStyle.ForeColor = Color.Red
    End If
  End If
End Sub

mit freundlichen Grüßen
Sven