Private Sub ControlBorder(ByVal ctrl As Control, ByVal ShowBorder As _
      Boolean, ByVal BorderColor As Color, ByVal BorderWidth As Integer)
        Dim g As Graphics = Me.CreateGraphics()
        If ShowBorder Then
            Dim BWidth As Integer = BorderWidth
            Dim BCol As New SolidBrush(BorderColor)
            g.Clear(Me.BackColor)
            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.Clear(Me.BackColor)
            g.Dispose()
        End If
 
    Private Sub ControlMouseEnter(sender As Object, ByVal e As EventArgs)       _
                    ControlBorder(DirectCast(sender, Control), True, BCol, _
      BWidth)
        Me.Invalidate()
    End Sub
 
    Private Sub ControlMouseLeave(sender As Object, ByVal e As EventArgs)
            ControlBorder(DirectCast(sender, Control), False, Color.AliceBlue, _
              0)
        Me.Invalidate()
    End Sub