w00t, you learn something every day

VB Code:
  1. Dim chBuf(3) As Byte = {&HAA, &HAA, &H09, 0}
  2. SerialPort1.Write(chBuf, 0, 4)