Protected Overrides Sub OnPaint(e As System.Windows.Forms.PaintEventArgs)
        MyBase.OnPaint(e)
 
        With e.Graphics
            For i As Integer = 0 To Me.Controls.Count - 1
                If TypeOf Me.Controls(i) Is Button Then
                    If Controls(i).Focused Then
                        Dim crect As Rectangle = New Rectangle(Controls(i).Left _
                          - ButtonFrameBorderWidth, Controls(i).Top - _
                          ButtonFrameBorderWidth, Controls(i).Width + ( _
                          ButtonFrameBorderWidth * 2), Controls(i).Height + ( _
                          ButtonFrameBorderWidth * 2))
                        Using br As New SolidBrush(ButtonFrameBorderColor)
                            .FillRectangle(br, crect)
                        End Using
                    End If
                End If
            Next i
        End With
    End Sub

Public Class NewButton
    Inherits Button
    Public Property ButtonFrameBorderColor As Color = Color.Red
    Public Property ButtonFrameBorderWidth As Integer = 2
 
    Private _DisplayFocusCues As Boolean = True
 
    Protected Overrides ReadOnly Property ShowFocusCues() As Boolean
        Get
            Return _DisplayFocusCues
        End Get
    End Property
 
    Public Property DisplayFocusCues() As Boolean
        Get
            Return _DisplayFocusCues
        End Get
        Set(value As Boolean)
            _DisplayFocusCues = value
        End Set
    End Property
 
    Protected Overrides Sub OnGotFocus(e As System.EventArgs)
        MyBase.OnGotFocus(e)
        InValidateParent()
    End Sub
 
    Protected Overrides Sub OnLostFocus(e As System.EventArgs)
        MyBase.OnGotFocus(e)
        InValidateParent()
    End Sub
 
    Private Sub InValidateParent()
        If Me.Parent Is Nothing Then Exit Sub
        If TypeOf Me.Parent Is PanelWithFramedButtons Then
            Me.Parent.Invalidate()
        End If
        If TypeOf Me.Parent Is Form Then
            Me.Invalidate()
        End If
    End Sub
 
    Protected Overrides Sub OnPaint(pevent As _
      System.Windows.Forms.PaintEventArgs)
        MyBase.OnPaint(pevent)
 
        Dim g As Graphics = MyBase.Parent.CreateGraphics()
 
        Dim ClipLeft As Integer = MyBase.Location.X
        Dim ClipWidth As Integer = MyBase.Width
        Dim ClipTop As Integer = MyBase.Location.Y
        Dim ClipHeight As Integer = MyBase.Height
 
        Dim Rect As Rectangle = New Rectangle(ClipLeft - _
          ButtonFrameBorderWidth, _
                                              ClipTop - ButtonFrameBorderWidth, _
                                              ClipWidth + ( _
                                              ButtonFrameBorderWidth * 2), _
                                              ClipHeight + ( _
                                              ButtonFrameBorderWidth * 2))
        With pevent.Graphics
            If MyBase.Focused Then
                Using br As New SolidBrush(ButtonFrameBorderColor)
                    g.FillRectangle(br, Rect)
                End Using
            End If
        End With
    End Sub
End Class