189 8069 5689
a = (":010612000020C70D0A")'这里肯定有问题
成都创新互联企业建站,10年网站建设经验，专注于网站建设技术，精于网页设计，有多年建站和网站代运营经验，设计师为客户打造网络企业风格，提供周到的建站售前咨询和贴心的售后服务。对于网站制作、做网站中不同领域进行深入了解和探索，创新互联在网站建设中充分了解客户行业的需求，以灵动的思维在网页中充分展现，通过对客户行业精准市场调研，为客户提供的解决方案。
括号必须在引号里面，不然编译不过的
你的问题是没有发送确认符，一般串口指令末尾都有换行确认符vbCr，下位机接收到vbCr后才认为是一条完整指令，改成下面的试验
Dim a As String = ":010612000020C70D0A" vbCr
串口通信最终都是用二进制传输的，你用代码把二进制转化成十六进制就可以了。不需要额外设置。
上面的代码看不出问题，如果初始化串口控件时已经注册了AxMSComm1_OnComm，有数据接收应该能触发，至于为什么没有触发，要看看你的接收方是否已经收到你的发出指令，是否已经有响应数据回发。
建议分开调试，用一个通用的串口助手，如格西烽火串口助手之类的，分别调试你的上位机和下位机。格西烽火串口助手能轻松的定制如你上面的发送数据。
你可以这样操作：
Form1.BeginInvoke(Sub()
'一些操作
End Sub)
这样主线程就会放下手里的事情并执行Sub里的操作了
下面代码就是将文本框中以一个空格隔开的十六进制转为字节的代码，文本框中数字格式为：01 02 03
Dim TestArray() As String = Split(TextBox1.Text)
Dim hexBytes() As Byte
ReDim hexBytes(TestArray.Length - 1)
Dim i As Integer
For i = 0 To TestArray.Length - 1
hexBytes(i) = Val("h" TestArray(i))
Next
SerialPort.Write(hexBytes, 0, hexBytes.Length)
不知道你是不是用51单片机往串口发数据，是的话那是因为51的sbuf最多存放8个字节，所以你发12个字节会分成两次发完。还有在接收的时候最好定义好通信协议，比如加一个侦头，一个侦尾，通过这两个字节的内容来接收数据。
老兄，提问还是给点悬赏分嘛，不要吝啬哪点分，知识是无价的，你给得越多，回答你的人才会越多。