Public Class frmMain
 
Dim frmSerialAnswere As Form
 
Private Sub SerialPort_DataReceived(ByVal sender As Object, ByVal e As _
  System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort.DataReceived
        ' Daten über die Serielle Schnittstelle empfangen, und an die Form, 
        ' welche die Daten angefordert hat, zurückgeben
 
        Dim Sendback As System.Reflection.MethodInfo = _
          frmSerialAnswere.GetType.GetMethod("SerialReceive")  
 
        Dim Arguments(0) As String
 
        Arguments(0) = SerialPort.ReadLine
        Sendback.Invoke(frmSerialAnswere, Arguments)
 
End Sub
 
Public Sub SerialPortSend(ByVal SendText As String, ByRef Sender As Form)
'Daten über die Serielle Schnittstelle ausgeben
        SerialPort.WriteLine(SendText) 'Text der an die Schnittstelle gesendet 
        ' wird
        frmSerialAnswere = Sender 'Form, welche den "Auftrag" gegeben hat _
          speichern
End Sub
End Class

Public Class frmForm3
Private Sub btnVerbinden_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles btnVerbinden.Click
' Serielle Übertragung starten
frmMain.SerialPortSend("StartTransfer", Me)
End Sub
 
Sub SerialReceive(ByVal Data As String)
'Über die Serielle Schnittstelle empfangene Daten ausgeben
        Label1.Text = "Empfangene Daten " & Data
    End Sub
 
End Class