Private Sub dgvVersionArchive_RowPostPaint(ByVal sender As Object, ByVal e _
      As System.Windows.Forms.DataGridViewRowPostPaintEventArgs) Handles _
      dgvVersionArchive.RowPostPaint
        Call drawRectOnDgv(dgvVersionArchive, 3, Color.Blue, e)
    End Sub
 
    Public Sub drawRectOnDgv(ByVal oDgv As DataGridView, ByVal lineWidth As _
      Short, ByVal lineColor As Color, ByVal e As _
      DataGridViewRowPostPaintEventArgs)
        Dim rect As Rectangle
        Dim iWidth As Integer = 0
 
        Try
            If oDgv.Rows(e.RowIndex).Selected Then  ' ist die Zeile selektiert?
                rect = oDgv.GetRowDisplayRectangle(e.RowIndex, False) ' das 
                ' Rechteck der aktuellen Zeile
                ' Rechteck für den Rahmen erzeugen
                'If oDgv.Controls(1).Visible = True Then iWidth = oDgv.Width - ( 
                ' iScrollBarWidth + iDgvWidthDifferenz) Else iWidth = oDgv.Width
                If oDgv.RowCount - 1 = 0 Then
                    iWidth = oDgv.Width - iDgvWidthDifferenz
                Else
                    iWidth = oDgv.Width - (iScrollBarWidth + iDgvWidthDifferenz)
                End If
                Dim rec As Rectangle = New Rectangle(1, rect.Y, iWidth, _
                  rect.Height - 1)
                ' Zeichnen des Rahmens
                ControlPaint.DrawBorder(e.Graphics, rec, lineColor, lineWidth, _
                  ButtonBorderStyle.Solid, lineColor, lineWidth, _
                  ButtonBorderStyle.Solid, lineColor, lineWidth, _
                  ButtonBorderStyle.Solid, lineColor, lineWidth, _
                  ButtonBorderStyle.Solid)
            End If
        Catch
            Call OnErr(Me.Name, "trv_Folder_DoubleClick", Err.Description)
        End Try
    End Sub