Private Sub comCOM1_OnComm()
Dim S As Variant
Select Case comCOM1.CommEvent
Case comEvReceive
'转发到COM2
S = comCOM1.Input
comCOM2.Output = S
'此处可以设计一个函数来显示S的内容
End Select
End Sub
Private Sub comCOM2_OnComm()
Dim S As Variant
Select Case comCOM2.CommEvent
Case comEvReceive
'转发到COM1
S = comCOM2.Input
comCOM1.Output = S
'此处可以设计一个函数来显示S的内容
End Select
End Sub