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