VB通过串口向单片机发送十六进制数问题

[zhlufeng]

我想用VB通过串口向单片机发送十六进制数AA，单片机一旦收到AA后就进入中断执行我设定的程序。我通过串口调试助手可以实现，但是我自己也的VB程序不行，请高手帮我看看问题在哪里。谢谢！
Imports System.IO.Ports
Imports System.Text

Public Class frmControl
Dim RS232 As SerialPort


Private Sub frmControl_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
For Each sp As String In SerialPort.GetPortNames
cmbCom.Items.Add(sp)
Next
cmbCom.Sorted = True
cmbCom.SelectedIndex = 0
End Sub

Private Sub btnOpenCom_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOpenCom.Click
Dim mBaudRate As Integer
Dim mParity As Parity
Dim mDataBit As Integer
Dim mStopbit As StopBits
Dim mPortName As String

mPortName = cmbCom.SelectedItem.ToString
mBaudRate = 9600
mParity = Parity.None
mDataBit = 8
mStopbit = StopBits.One

RS232 = New SerialPort(mPortName, mBaudRate, mParity, mDataBit, mStopbit)
RS232.Encoding = Encoding.Unicode
If Not RS232.IsOpen Then
RS232.Open()
btnSendData.Enabled = True

Else
MsgBox("通讯端口开启错误", MsgBoxStyle.Critical Or MsgBoxStyle.OkCancel)
End
End If
End Sub

Private Sub btnSendData_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSendData.Click
Dim Data(0) As Byte
Data(0) = &HAA
RS232.Write(Data(0))
End Sub
End Class

[灯火斑斓]

Private Sub btnSendData_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSendData.Click
Dim Data As Byte(0)
Data(0) = &HAA
RS232.Write(Data，0，1)
End Sub
End Class

[zhlufeng]

已经搞定，谢谢各位！

[zdingyun]

    Private Sub btnSendData_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSendData.Click
        Dim Data(0) As Byte
        Data(0) = &HAA
        RS232.Write(Data, 0, 1)
    End Sub

[ineedchrist]

http://topic.csdn.net/u/20081226/19/69ac6c9a-b131-45cb-a105-5ee8506e37f7.html

我之前写过的完整的COM口通讯的类