Imports System.Windows.Forms
Public Class PanelWithFramedButtons
    Inherits Panel
 
    Public Property ButtonFrameBorderColor As Color = Color.Red
    Public Property ButtonFrameBorderWidth As Integer = 2
 
    Protected Overrides Sub OnPaint _
       (e As System.Windows.Forms.PaintEventArgs)
        MyBase.OnPaint(e)
 
        With e.Graphics
            Using br As New SolidBrush(Me.BackColor)
                .FillRectangle(br, e.ClipRectangle)
            End Using
 
            For i As Integer = 0 To Me.Controls.Count - 1
                If TypeOf Me.Controls(i) Is Button Then
                    'Besitzt der Button den Fokus
                    If Controls(i).Focused Then
                        'Position und Größe des Button 
                        Dim crect As Rectangle = Controls(i).Bounds
 
                        'Rechteck um halbe Linienstärke erweitern 
                        Dim frect As Rectangle = Rectangle.Inflate(crect, _
                            ButtonFrameBorderWidth \ 2, ButtonFrameBorderWidth _
                            \ 2)
 
                        'Rahmen auf dem Panel zeichnen
                        Using pn As New Pen _
                            (ButtonFrameBorderColor, ButtonFrameBorderWidth)
                            .DrawRectangle(pn, frect)
                        End Using
                    Else
                        'Kein Fokus
                        '............... 
                    End If
                End If
            Next i
        End With
    End Sub
End Class

Dim drawrectrect As Rectangle = _
    Rectangle.Inflate(pevent.ClipRectangle, -BorderWidth \ 2, -BorderWidth \ 2)