源程序：

Do Until EOF(hSend) Or CancelSend
……
……
……
'等待系统处理完毕
Do
RET = DoEvents()
Loop Until MSComm1.OutBufferCount = 0
Loop '循环发送完毕

DoEvents的作用是将控制权传给操作系统

直接写成“DoEvents（）”不就行了？
为什么还要写成赋值的形式：“RET=DoEvents（）”？
而且是赋给一个Do循环里从来没用到的Ret变量？？？