vb6中使text控件的光标随着增加的内容向下移动

vb6中使text控件的光标随着增加的内容向下移动

Dim i As Integer

Private Sub Command1_Click()

Text1.Text = Text1.Text + "test..." + CStr(i) + Chr(13) + Chr(10)

i = i + 1

End Sub

Private Sub Form_Load()

i = 1

End Sub

Private Sub Text1_Change()

Text1.SelStart = Len(Text1.Text)

End Sub