2:huanggx(大侠) 真不好意思，眼看花了。看错了：）来吧

Question

大侠哥，还是那个ComboBox，现在在里面加了60个List，有没有办法将他们一次全部读出到一个TextBox中？

Answer 1

    Dim i As Integer
    For i = 0 To Combo1.ListCount - 1
        Text1.SelStart = Len(Text1.Text)
        Text1.Text = Text1.Text & Combo1.List(i)
    Next

Answer 2

如果你的这个Text1是多行的，那么，你还可以这样：    For i = 0 To Combo1.ListCount - 1
        Text1.Text = Text1.Text & Combo1.List(i) & vbCr
    Next
这样每行增加一个回车