Public Class Form1
    Private Sub DrawBorder(ByVal ShowBorder As Boolean, ByVal Ctrl As Button)
        Dim g As Graphics = Panel1.CreateGraphics()
 
        If ShowBorder Then
            Dim BWidth As Integer = 3
            Dim BCol As New SolidBrush(Color.Red)
 
            Dim rect As RectangleF = New Rectangle(Ctrl.Left - BWidth, Ctrl.Top _
              - BWidth, Ctrl.Width + (BWidth * 2), Ctrl.Height + (BWidth * 2))
            g.FillRectangle(BCol, rect)
            g.Dispose()
        Else
            g.Dispose()
            Panel1.Invalidate()
        End If
 
    End Sub
 
    Private Sub Button1_GotFocus(sender As Object, e As System.EventArgs) _
      Handles Button1.GotFocus
        DrawBorder(True, Button1)
    End Sub
 
    Private Sub Button1_LostFocus(sender As Object, e As System.EventArgs) _
      Handles Button1.LostFocus
        DrawBorder(False, Button1)
    End Sub
 
 
 
    Private Sub Button2_GotFocus(sender As Object, e As System.EventArgs) _
      Handles Button2.GotFocus
        DrawBorder(True, Button2)
    End Sub
 
    Private Sub Button2_LostFocus(sender As Object, e As System.EventArgs) _
      Handles Button2.LostFocus
        DrawBorder(False, Button2)
    End Sub
 
 
 
    Private Sub Button3_GotFocus(sender As Object, e As System.EventArgs) _
      Handles Button3.GotFocus
        DrawBorder(True, Button3)
    End Sub
 
    Private Sub Button3_LostFocus(sender As Object, e As System.EventArgs) _
      Handles Button3.LostFocus
        DrawBorder(False, Button3)
    End Sub
End Class