主要使用comm control控件'Send Data
Private Sub Command1_Click()
MSComm1.CommPort = 4
MSComm1.PortOpen = True
MSComm1.Output = "???"
End Sub'Get Data
Private Sub MSComm1_OnComm()
MsgBox MSComm1.Input
End Sub