用VB的Comm控件做的一个串口工具