以下是引用lll930720在2007-5-19 8:00:36的发言：
在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

以下是引用lll930720在2007-5-19 8:00:36的发言：
在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

以下是引用slore在2007-5-19 10:08:25的发言：
Private Sub Text1_Change()
If Text2 = "" Then
Text2 = Text1
Else
Text2 = Text2 & vbCrLf & Text1
End If
End Sub

以下是引用ouzhiguang在2007-5-20 23:04:14的发言：
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