Private Sub Fo rm_Load() 使 用 C0M1 MSCOmm1．CommPort = 1 9600波特 ，无奇偶校验 ，8位 数据 ，一个停止位 MSComm1．Settings = 9600，N，8，1 MSCOmm1 InputLen = 4 告诉控件读入整个缓冲 区 If MSComm 1 PortOpen = False Then MSComml Po~Open =True 打开端 口 End If