[mohamedallams]

*تم الحل*

الكود المستخدم

كود :

'''serialport2 = sp2 
Private Sub ReceivedText(ByVal [data] As String) 
        If Me.Label1.InvokeRequired Then
           Dim x As New SetTextCallback(AddressOf ReceivedText)
           Me.Invoke(x, New Object() {(data)})
       Else
           Me.Label1.Text = [text] 'to take data from serialport1 to label1

            SP2.Write(Label1.Text) 'for take data from label1 to serialport2
       
        End If