这只是一个小实验，相关的容错等问题待续。我的小程序，在两位大吓的帮助下完成，不敢独享。
Private Sub Command1_Click()
MSComm1.RTSEnable = True
Dim OutString As String
MSComm1.OutBufferCount = 0
MSComm1.InBufferCount = 0
OutString = Chr(&H2) + "7" + "0008" + Chr(&H3) + "02"
 MSComm1.Output = OutString
Label5.Caption = "串口开，发送完成"
Dim Savetime As Single
Savetime = Timer '记下开始的时间
While Timer < Savetime + 1 '循环等待
DoEvents '转让控制权，以便让操作系统处理其它的事件。
Wend
Dim OutString1 As String
MSComm1.OutBufferCount = 0
MSComm1.InBufferCount = 0
OutString1 = Chr(&H2) + "8" + "0008" + Chr(&H3) + "03"
 MSComm1.Output = OutString1
Label5.Caption = "串口开，发送完成2"
End Sub

这个贴子就是没人回。第一百个我自己回，大家提个意见也好呀。

什么呀，不是一百，可以亮星吗？

呵呵，终于亮了

张剑请进

好贴
我顶！顶！顶！