Public Enum TransferTyp
        [String]
        Number
        Table
    End Enum
 
    <Serializable()> _
    Public Class TransferDaten
 
        Public Property Typ As TransferTyp 'Kennung
 
        Public Property AString As String  'Properties für diverse Übergaben
        Public Property BNumber As Decimal
        Public Property CTable As DataTable
 
    End Class

    Private Sub server_thread()
 
        'Testdaten erstellen 
 
        Dim dt As New DataTable
        With dt
            .Columns.Add("SP1")
            .Columns.Add("SP2")
            .Columns.Add("SP3")
            .Rows.Add("11", "12", "13")
            .Rows.Add("21", "22", "23")
            .Rows.Add("31", "32", "33")
        End With
 
        Dim tc As New TransferDaten
        'Transferklasse füllen
        tc.CTable = dt
        tc.Typ = TransferTyp.Table
 
        'Direkte Serialisierung der Datatable in der 
        'Transferklasse in die Pipe
        Dim bf As New BinaryFormatter
        Dim server As New NamedPipeServerStream("PipeTransfer")
        server.WaitForConnection()
        bf.Serialize(server, tc)
        server.Close()
 
    End Sub
 
 
 
    Private Sub Client_Thread()
 
        'NamedPipe für den Datenempfang
        Dim client As New NamedPipeClientStream("PipeTransfer")
        client.Connect()
 
        'Direkte Deserialisierung der empfangenen TC-Instanz
        Dim bfc As New BinaryFormatter
        Dim tc As TransferDaten = CType(bfc.Deserialize(client), TransferDaten)
        client.Close()
 
        'Hier Fallunterscheidung gemäß Übergabetyp vornehmen
        If tc.Typ = TransferTyp.Table Then
            'Anzeige der erhaltenen Datatable-Daten im Grid 
            Me.Invoke(New Tabledelegate(AddressOf showtable), tc.CTable)
        else
           '..... 
        End If
 
    End Sub