Private Sub dgv1_CellPainting(ByVal sender As Object, _
    ByVal e As System.Windows.Forms.DataGridViewCellPaintingEventArgs) _
    Handles dgv1.CellPainting
 
    If e.RowIndex >= 0 Then
       Try
          ' Hintergrund zeichnen
          e.PaintBackground(e.ClipBounds, True)
 
          If (e.Value IsNot Nothing) Then
             If e.ColumnIndex = 0 Then
                'Kästchen zeichnen
                e.PaintContent(e.ClipBounds)
                'Selektierte Zelle: Fokusrechteck zeichnen
                If (e.State And DataGridViewElementStates.Selected) = _
                            DataGridViewElementStates.Selected Then
                     Using fpen As New Pen(e.CellStyle.ForeColor, 1)
                         e.Graphics.DrawRectangle(fpen, e.CellBounds)
                     End Using
                End If
             ElseIf e.ColumnIndex = 1 Then
                Using fbrush As New SolidBrush(e.CellStyle.ForeColor)
                   'Text zeichnen
                   e.Graphics.DrawString(CStr(e.Value), e.CellStyle.Font, _
                     fbrush, _
                   e.CellBounds.X + 2, e.CellBounds.Y + 2, _
                   StringFormat.GenericDefault)
                End Using
             End If
          End If
 
          'Zelle ist bearbeitet
          e.Handled = True
       Catch
       End Try
    End If
End Sub