Private Sub DataGridView1_CellPainting(ByVal sender As Object, ByVal e As _
  System.Windows.Forms.DataGridViewCellPaintingEventArgs) Handles _
  DataGridView1.CellPainting
If DataGridView1.Columns("Vorname").Index = e.ColumnIndex AndAlso e.RowIndex _
>= 0 Then
	Dim gridBrush As New SolidBrush(Color.Red)
	Dim gridLinePen As New Pen(gridBrush)
	e.Graphics.DrawLine(gridLinePen, e.CellBounds.Right - gridLinePen.Width, _
  e.CellBounds.Top, _
	e.CellBounds.Right - gridLinePen.Width, e.CellBounds.Bottom)
	e.Handled = True
End If
End Sub

Salzburger