Dim ClipLeft As Integer = pevent.ClipRectangle.Left - BorderWidth
        Dim ClipWidth As Integer = pevent.ClipRectangle.Width + (BorderWidth * _
          2)
        Dim ClipTop As Integer = pevent.ClipRectangle.Top - BorderWidth
        Dim ClipHeight As Integer = pevent.ClipRectangle.Height + (BorderWidth _
          * 2)
 
        Dim BRect As Rectangle = New Rectangle(ClipLeft, ClipTop, ClipWidth, _
          ClipHeight)
 
            Using pn As New Pen(bc, BorderWidth)
                .DrawRectangle(pn, BRect) 'pevent.ClipRectangle)
            End Using