Imports System.ComponentModel

    Public Class LabelStretch

        Inherits System.Windows.Forms.Label
        Private m_Components As IContainer
        Private m_Streth As Boolean = True
        Private m_BorderStyle As Border3DStyle = Border3DStyle.Etched


#Region "       Инициализация "

        Public Sub New()
            MyBase.New()
            InitializeComponent()
        End Sub

        Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
            If disposing Then
                If Not (m_Components Is Nothing) Then
                    m_Components.Dispose()
                End If
            End If
            MyBase.Dispose(disposing)
        End Sub

        Private Sub InitializeComponent()
            Me.Name = "LabelStretch"
            Me.Size = New System.Drawing.Size( 100 ,  20 )
        End Sub

#End Region

        <Category("Appearance"), _
        Description("Растянуть Lable вниз, чтобы вместить весь техт"), _
         DefaultValue(GetType(Boolean), "True")> _
        Public Property StrethText() As Boolean
            Get
                Return m_Streth
            End Get
            Set(ByVal Value As Boolean)
                m_Streth = Value
                Me.Invalidate()
            End Set
        End Property

        <Category("Blinking"), _
         DefaultValue(GetType(Border3DStyle), "Etched")> _
        Public Shadows Property BorderStyle() As Border3DStyle
            Get
                Return m_BorderStyle
            End Get
            Set(ByVal Value As Border3DStyle)
                If m_BorderStyle <> Value Then
                    m_BorderStyle = Value
                    Me.Invalidate()
                End If
            End Set
        End Property

        Protected Overrides Sub OnPaint( _
                            ByVal e As System.Windows.Forms.PaintEventArgs)
            MyBase.OnPaint(e)
            Me.OnDrawBorder(e.Graphics)
            If designmode Then
                Me.OnDrawBorder(e.Graphics)
            End If

        End Sub


        Protected Overrides Sub OnTextChanged(ByVal e As System.EventArgs)

            If m_Streth Then
                Dim g As Graphics = Me.CreateGraphics()
                Dim s As SizeF = g.MeasureString(Me.Text, Me.Font, Me.Width)
                Me.Height = s.Height +  5 
                g.Dispose()
            End If

        End Sub
        Protected Overridable Sub OnDrawBorder(ByVal gr As Graphics)
            ControlPaint.DrawBorder3D(gr, ClientRectangle, m_BorderStyle)
        End Sub

    End Class
End Namespace