主题：用什么办法，输出信息象dos窗口那样，一行一行提示

不明白你什么意思。如果是合并字符，参考

Dim s As String = "123456"
msgbox(s)
s = s & vbcrlf & "abcd"
msgbox(s)
s = s & vbcrlf & "aaaaaabbbbcccc"
msgbox(s)

Dim desc As String

desc = desc +"|"+ format(Date.now,"yyyy-MM-dd HH:mm:ss.ffff")

Dim txtProgress As WinForm.TextBox = Forms("Http服务设置").Controls("txtProgress")

txtProgress.Text = desc & vbcrlf & txtProgress.Text '添加提示到文本框的第一行

Application.DoEvents()

'清除

If desc.length>1000 Then

    desc=""

End If