请教：

如何才能把Text1文本里的内容，换行加到Text2的文本框里面？

就是Text2里如果有内容，Text1文本里的内容加到第二行，如果没有，就在第一行显示，请问怎样才可以做到？

我是新手，请各位多多指教！

在TEXT2属性中,设
Text2.MultiLine = True
Text2.ScrollBars = 2

Private Sub Text1_Change()
If Text2.Text = "" Then
Text2.Text = Text1.Text
Else
Text2.Text = Text2.Text & Chr(13) & Chr(10) & Text1.Text
End If
End Sub

Private Sub Text1_Change()
If Text2 = "" Then
Text2 = Text1
Else
Text2 = Text2 & vbCrLf & Text1
End If
End Sub

谢谢你啊，已解决了我的问题。

我还想请教你一个问题：

如何把Text1的内容套用到Combo1里呢？

如果Text1=“1”，
Combo1的列表框里就显示1
把Text1的内容清空后，
改成Text1=“2”，
Combo1列表框里的第二行就显示2
以此类推，
但Combo1的列表框里不能有两列显示相同的内容。
也就是当Combo1列表框里的第一行为 1 时，
后面的列中就不能有 1 ，
请问该如何做？

你的也可以，谢谢你们的热心帮助！

Private Sub Command1_Click()
If Text1.Text = "" Then
MsgBox "不能为空，请重新输入"
Exit Sub
End If
For i = 0 To Combo1.ListCount 'combo1中记录的个数
If Combo1.List(i) = Text1.Text Then '判断是否存在相同的
MsgBox "您输入的已经存在，请重新输入！"
Text1.Text = ""
Text1.SetFocus ' 把光标设置在text1中
Exit Sub

End If
Next i
Combo1.AddItem Text1.Text
Text1.Text = ""
Text1.SetFocus
End Sub

谢谢你的回复！感谢你的帮助！