Text box ve Multiline problems solution

Hiii
Was given earlier i d'ont know but i too called and i have finally solved :)

now we need to do that
before usercontrol form open and 2 text box(text1,text2) and 1 shape1 form add in and one's of text box properties(text2) Multiline=true and scarollbars=2(vertical if more scrollbars properties want each scroll for text add are required)
after

After Code:

'General ..
Private m_MultiLine As Boolean
 
Private Sub UserControl_InitProperties()
m_MultiLine = False
'....
End Sub
 
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
    m_MultiLine = PropBag.ReadProperty("MultiLine", False)
'....
End Sub
 
Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
    Call PropBag.WriteProperty("MultiLine", m_MultiLine, False)
'...
End Sub
 
Public Property Get MultiLine() As Boolean
    MultiLine = m_MultiLine
End Property
 
Public Property Let MultiLine(ByVal NewMultiLine As Boolean)
    m_MultiLine = NewMultiLine
    PropertyChanged "MultiLine"
    Text1.Visible = False
    Text2.Visible = True
    boyut
End Property
 
 
Private Sub UserControl_Initialize()
boyut
End Sub
 
Private Sub UserControl_Resize()
boyut
End Sub
 
Sub boyut()
If UserControl.Width < 190 Then UserControl.Width = 190
If UserControl.Height < 250 Then UserControl.Height = 250
Shape1.Move 0, 0, UserControl.Width, UserControl.Height
If m_MultiLine = True Then
    Text2.Move 20, 20, Shape1.Width - 40, Shape1.Height - 40
    Text1.Visible = False
    Text2.Visible = True
Else
    Text1.Move 20, 20, Shape1.Width - 40, Shape1.Height - 40
    Text1.Visible = True
    Text2.Visible = False
End If
End Sub
' Note ... related parts your code

That's it :wave: