Private Sub Command1_Click()
    Dim i
    Text1.Text = ""
    For i = 1 To 100
        Text1.Text = Text1.Text & vbCrLf & i
        Text1.SelStart = Len(Text1.Text)
    Next
End Sub
Private Sub Form_Load()
    Dim i
    Text1.MultiLine = True
    For i = 1 To 100
        Text1.Text = Text1.Text & vbCrLf & i
        Text1.SelStart = Len(Text1.Text)
    Next
End Sub