请高手提供一个VB + COM 例子：需要发送命令并接收数据

--------------------编程问答-------------------- http://download.csdn.net/detail/veron_04/4037248 --------------------编程问答-------------------- http://download.csdn.net/detail/veron_04/4037248 --------------------编程问答-------------------- 我都没有积分了，能帮忙贴一下或者邮箱给我？ dianzi011sh@163.com --------------------编程问答-------------------- 没人回答？
我先贴一个我之前做好的只接收的MSCOMM的例子：
Select Case MSComWeight.CommEvent
     Case comEvReceive
        DelayTimer.Enabled = False
        Instring = vbNullString

        Do While MSComWeight.InBufferCount <> 0
            Instring = Instring & MSComWeight.Input
            DoEvents
        Loop

发送命令就没有试成功过 --------------------编程问答-------------------- 建议你先用串口调试器调试通信命令，如果没有问题了，那么再编写自己的程序。 --------------------编程问答-------------------- 呵呵，这些都没有问题了，只是差一个例子，大家舍不得啊。不过我还是测试出来了，现在贴出来，供大家参考：
接收的MSCOMM的例子：
Select Case MSComWeight.CommEvent
  Case comEvReceive
  DelayTimer.Enabled = False
  Instring = vbNullString

  Do While MSComWeight.InBufferCount <> 0
  Instring = Instring & MSComWeight.Input
  DoEvents
  Loop

发送
If Not MSComWeight.PortOpen Then
        MSComWeight.PortOpen = True
    End If
    outstring = "test"
    MSComWeight.Output = outstring     '此行即为发送命令

--------------------编程问答-------------------- 只是还没有想到如何处理下面的逻辑：
发送格式（ASCII）
位1 位2 位3 位4 位5 位6 位7
受力方向位数据1 数据2 小数点数据3 数据4 数据位5 --------------------编程问答--------------------

引用 7 楼的回复:

只是还没有想到如何处理下面的逻辑：
发送格式（ASCII）
位1 位2 位3 位4 位5 位6 位7
受力方向位数据1 数据2 小数点数据3 数据4 数据位5

位1 位2 位3 位4 位5 位6 位7
受力方向位数据1 数据2 小数点数据3 数据4 数据位5

LZ,你这是接收7字节数据,可设置RThreshold = 7,在OnComm事件中接收,判断和处理数据.

补充：VB ,  COM/DCOM/COM+