Реализовать цикл отправки - VB

Формулировка задачи:

На форме: два TextBox, один таймер, два порта COM1 и COM2 и одна кнопка. Задача: сделать простейшую программу. Суть - информацию из первой текстовой строки (СОМ1) кнопкой отправить на СОМ2. И из СОМ2 с использованием таймера вернуть информацию во вторую текстовую строку. Заранее спасибо.

Решил задачу. Все работает, отправка идет, прием тоже работает.

Public ComOut As String
 
Private Sub Command1_Click()
MSComm1.Output = Text1.Text
 
End Sub
 
Private Sub Form_Load()
MSComm1.CommPort = 1
MSComm1.Settings = "9600,N,8,1"
MSComm1.PortOpen = True
MSComm1.RThreshold = 1
MSComm2.CommPort = 2
MSComm2.Settings = "9600,N,8,1"
MSComm2.RThreshold = 1
 
MSComm2.PortOpen = True

End Sub
 
Private Sub MSComm2_OnComm()
Select Case MSComm2.CommEvent
Case comEvReceive
ComOut = ComOut & MSComm2.Input
End Select

End Sub
 
Private Sub Timer1_Timer()
If Len(ComOut) = Len(Text1.Text) Then
Text2.Text = ComOut
ComOut = ""
End If

End Sub

Подниму. Всем доброе утро! Суть такая, исходя из кода выше, нужно разделить одну программу на две. Одна отвечает за отправку (СОМ1), а вторая за прием (СОМ2). Какие могут быть трудности? И как бы Вы это реализовали?

Сделано. Код первой программы (СОМ1):

Public buf As Variant
 
Private Sub Command1_Click()
MSComm1.Output = Text1.Text
 
End Sub
 
Private Sub Form_Load()
Text1.Text = ""
MSComm1.CommPort = 1
MSComm1.Settings = "9600,N,8,1"
MSComm1.PortOpen = True
MSComm1.RThreshold = 1
 
End Sub

Код второй программы (СОМ2):

Public buf As Variant
 
Private Sub Form_Load()
MSComm2.CommPort = 2
MSComm2.Settings = "9600,N,8,1"
MSComm2.PortOpen = True
MSComm2.RThreshold = 1
Text2.Text = ""
 
End Sub
 
Private Sub MSComm2_OnComm()
Select Case MSComm2.CommEvent
Case comEvReceive
buf = MSComm2.Input
Text2.Text = Text2.Text & buf
End Select
End Sub

Private Sub Text2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text2.Text = ""
End Sub

Решение задачи: «Реализовать цикл отправки»

textual
                            Листинг программы 
                        

                            Public buf As Variant
 
Private Sub Form_Load()
MSComm2.CommPort = 2
MSComm2.Settings = "9600,N,8,1"
MSComm2.PortOpen = True
MSComm2.RThreshold = 1
Text2.Text = ""
 
End Sub
 
Private Sub MSComm2_OnComm()
Select Case MSComm2.CommEvent
Case comEvReceive
buf = MSComm2.Input
Text2.Text = Text2.Text & buf
End Select
 
End Sub
 
 
Private Sub Text2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text2.Text = ""
End Sub
                        