把text2的MultiLine属性设为True，
Private Sub Command1_Click()
a = Len(Text1.Text)
For i = a - 1 To 1 Step -1
s = Right(Text1.Text, i)
Text2.Text = Text2.Text & s & vbCrLf
Next i
End Sub
s=text1.text
while s<>""
s=mid(s,2)
if s<>"" then s1=s & vbcrlf
wend
text2.text=s1
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024