Public Class cTextBox2
    Inherits TextBox
 
    Dim fixedHeight As Integer = 100
 
    Public Sub New()
        MyBase.Height = fixedHeight: MyBase.Multiline = True
    End Sub
 
    <System.ComponentModel.Browsable(False)> _
    Public Shadows ReadOnly Property Size() As Drawing.Size
        Get
            Return MyBase.Size
        End Get
    End Property
 
    <System.ComponentModel.Browsable(False)> _
    Public Shadows ReadOnly Property Height() As Integer
        Get
            Return MyBase.Height
        End Get
    End Property
 
    <System.ComponentModel.Browsable(True)> _
    Public Shadows Property Width() As Integer
        Set(value As Integer)
            If value < 20 Then Exit Property
            MyBase.Width = value
        End Set
        Get
            Return MyBase.Width
        End Get
    End Property
 
    Protected Overrides Sub onresize(e As System.EventArgs)
        MyBase.Height = fixedHeight
        MyBase.OnResize(e)
    End Sub
End Class