Text1.Text=Text1.Text & vbCrlf

解决方案 »

  1.   

    还要将textbox的multiline属性设为true
      

  2.   

    将textbox的multiline属性设为true后
    Dim abc As String
    Private Sub Command1_Click()
    abc = Text1.Text
    Text1.Text = abc & Chr(13) + Chr(10) & Text1.Text
    End Sub
      

  3.   

    在字符串后边加上一个 & vbcrlf 或者 & chr(13) & chr(10)
      

  4.   

    还要把textbox或richtextbox的multiline属性设为true,scorllbar属性设为2
      

  5.   

    multiline属性设为true
    text1.text=text1.text & Chr(13) + Chr(10)