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

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