用VB做的云台控制程序

  我用VB编了个控制云台的程序，请大师帮着看看，
'PELCD_P 解码器控制协议
'向上：A0 01 00 08 00 40 AF 46 A0 01 00 00 00 00 AF 0E
'向下：A0 01 00 10 00 40 AF 5E A0 01 00 00 00 00 AF 0E
'向左：A0 01 00 04 40 00 AF 4A A0 01 00 00 00 00 AF 0E
'向右：A0 01 00 02 40 00 AF 4C A0 01 00 00 00 00 AF 0E
'变倍(wide)大：A0 01 00 40 00 00 AF 4E A0 01 00 00 00 00 AF 0E
'变倍小(tele)：A0 01 00 20 00 00 AF 2E A0 01 00 00 00 00 AF 0E
'调焦大(far)： A0 01 01 00 00 00 AF 0F A0 01 00 00 00 00 AF 0E
'调焦小(near)：A0 01 02 00 00 00 AF 0C A0 01 00 00 00 00 AF 0E
'光圈小(close)：A0 01 08 00 00 00 AF 06 A0 01 00 00 00 00 AF 0E
'光圈大(open)：A0 01 04 00 00 00 AF 0A A0 01 00 00 00 00 AF 0E

    Option Explicit
    Dim sData() As Byte
    Dim OverButton As Boolean

Private Sub camclose_Click()
    ReDim sData(15)
    sData(0) = &HA0
    sData(1) = &H1
    sData(2) = &H8
    sData(3) = &H0
    sData(4) = &H0
    sData(5) = &H0
    sData(6) = &HAF
    sData(7) = &H6
    sData(8) = &HA0
    sData(9) = &H1
    sData(10) = &H0
    sData(11) = &H0