没有必要吧,加上multiline=true
和scrollbars=2就可以了吧

解决方案 »

  1.   

    Font = Text1.Font
        FontName = Text1.FontName
        FontSize = Text1.FontSize
        Text1.Text = "我是我我是我我是我" & vbCrLf & "我是我我是我我是我" & vbCrLf & "我是我我是我我是我"
        Text1.Height = TextHeight(Text1) + 100不知对你有帮助没
      

  2.   

    multiline=true是必加的,不要滚动条.
      

  3.   

    文本框的multiline=true  就能实现
      

  4.   


      文本框的属性multiline=true  就可以了, 
     
     
      

  5.   

    使用滚动条
    multiline=true
    scrollbars=2