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 编辑 ]

split 函数吧 字符串 拆成数组....（按换行符来拆）
循环 遍历 数组 给combo 控件additem...

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

不要用Binary方式读文件，用input方式可以逐行读入到combo1中
Private Sub Form_Load()
  Dim a As String
  Combo1.Clear
  Open App.Path & "\1.txt" For Input As #1
  While Not EOF(1)
    Line Input #1, a
    Combo1.AddItem a
  Wend
  Close #1
End Sub