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