VB的text如何显示多行文字

VB的text如何显示多行文字
建了一个text,原本打算显示 1这样
                       2
                       3
现发现只能显示3,1和2都不能显示，text的multiline为true,代码如下，求高手指教

Private Sub command1_Click()
Dim i As Integer
For i = 1 To 3
Text1.Text = i & Chr(10) & Chr(13)
Print Text1.Text
Next
End Sub

Private Sub command1_Click() Dim i As IntegerText1.Text = ""For i = 1 To 3 Text1.Text = Text1.Text & i & vbCrLf Print Text1.Text NextEnd Sub