运行速度极慢，程序失去响应

Question

Try
            Using COM As IO.Ports.SerialPort = _
                            My.Computer.Ports.OpenSerialPort(MyComSetting.PortName, MyComSetting.BaudRate)
                COM.Write(ModeBuffer, index, 1)
            End Using
        Catch ex As Exception
            TextBoxInfo.Text &= ex.Message & Chr(13) & Chr(10) & "通信失败,请重试!"
            flag = False
        End Try使用这段代码进行串口通信时，速度极慢，程序老半天没有响应，
但能够将数据成功发送出去，发送192个字节要花半分钟
注:
MyComSetting.PortName = "COM6",
 MyComSetting.BaudRate = 9600

Answer 1

com6是什么设备？你每次就写一个字节吗？

Answer 2

这是我写的一个更新LED显示屏显示内容工具的一部分代码
使用COM6与LED屏的单片机进行通信，无控制线，只有单纯的数据线
一次只写一个字节

Answer 3

你写的程序好像不是vb6的，所以俺一点不明白，俺猜问题可能出现在多次使用Using COM As IO.Ports.SerialPort = _ 
                            My.Computer.Ports.OpenSerialPort(MyComSetting.PortName, MyComSetting.BaudRate) 上，是否应该Using一次，Write多次？

Answer 4

谢谢你的热心，我现在用的是VISTA系统，我把程序放在XP下运行，问题解决，不知是否是VISTA系统的原因