Public Enum TransferTyp
    [String]
    Count
    [Decimal]
    Table
End Enum
 
<Serializable()> _
Public Class TransferDaten
 
    Dim _Typ As TransferTyp
    Public Property Typ() As TransferTyp 'Kennung
        Get
            Return _Typ
        End Get
        Set(ByVal value As TransferTyp)
            _Typ = value
        End Set
    End Property
 
    Dim _String As String
    Public Property TString() As String  'Properties für diverse Übergaben
        Get
            Return _String
        End Get
        Set(ByVal value As String)
            _String = value
        End Set
    End Property
 
    Dim _Number As Decimal
    Public Property TNumber() As Decimal
        Get
            Return _Number
        End Get
        Set(ByVal value As Decimal)
            _Number = value
        End Set
    End Property
 
    Dim _Count As Integer
    Public Property TCount() As Integer
        Get
            Return _Count
        End Get
        Set(ByVal value As Integer)
            _Count = value
        End Set
    End Property
 
    Dim _DTable As DataTable
    Public Property CTable() As DataTable
        Get
            Return _DTable
        End Get
        Set(ByVal value As DataTable)
            _DTable = value
        End Set
    End Property
 
End Class

Danke für die Hilfe

Gruß Christian