Private Sub Command1_Click()
Text2.Text = Text1.Text & Combo1.Text & Combo2.Text
End Sub
Private Sub Form_Load()
Open App.Path & "\1.txt" For Binary As #1
Dim s As String
s = String(LOF(1), " ")
Get #1, , s
Text1.Text = s
Close #1
End Sub

1.txt 内容如下：
张三
李四
王三         

读取在Combo1里后  变成一行了：张三李四王三     怎样才能分开显示成 ：张三
                                                                   李四
                                                                   王三



[ 本帖最后由 事业男儿 于 2013-11-29 19:44 编辑 ]

没有理解能否给出详细代码？  谢谢！