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:
  1. 'General ..

  2. Private m_MultiLine As Boolean

  3.  
  4. Private Sub UserControl_InitProperties()

  5. m_MultiLine = False

  6. '....

  7. End Sub

  8.  
  9. Private Sub UserControl_ReadProperties(PropBag As PropertyBag)

  10.     m_MultiLine = PropBag.ReadProperty("MultiLine", False)

  11. '....

  12. End Sub

  13.  
  14. Private Sub UserControl_WriteProperties(PropBag As PropertyBag)

  15.     Call PropBag.WriteProperty("MultiLine", m_MultiLine, False)

  16. '...

  17. End Sub

  18.  
  19. Public Property Get MultiLine() As Boolean

  20.     MultiLine = m_MultiLine

  21. End Property

  22.  
  23. Public Property Let MultiLine(ByVal NewMultiLine As Boolean)

  24.     m_MultiLine = NewMultiLine

  25.     PropertyChanged "MultiLine"

  26.     Text1.Visible = False

  27.     Text2.Visible = True

  28.     boyut

  29. End Property

  30.  
  31.  
  32. Private Sub UserControl_Initialize()

  33. boyut

  34. End Sub

  35.  
  36. Private Sub UserControl_Resize()

  37. boyut

  38. End Sub

  39.  
  40. Sub boyut()

  41. If UserControl.Width < 190 Then UserControl.Width = 190

  42. If UserControl.Height < 250 Then UserControl.Height = 250

  43. Shape1.Move 0, 0, UserControl.Width, UserControl.Height

  44. If m_MultiLine = True Then

  45.     Text2.Move 20, 20, Shape1.Width - 40, Shape1.Height - 40

  46.     Text1.Visible = False

  47.     Text2.Visible = True

  48. Else

  49.     Text1.Move 20, 20, Shape1.Width - 40, Shape1.Height - 40

  50.     Text1.Visible = True

  51.     Text2.Visible = False

  52. End If

  53. End Sub

  54. ' Note ... related parts your code

That's it