Public Interface IDataPacket
    Function FillPacket(cmd As Byte, param() As Byte) As Byte()
    Function CheckPacket(packet() As Byte) As Boolean

End Interface