Public Class clsDaten
#Region "Dimensionierung"
    Private _Nachname As String
    Private _Vorname As String
#End Region
#Region "Public Properties"
    Public Property Nachname() As String
        Get
            Nachname = _Nachname
        End Get
        Set(ByVal value As String)
            _Nachname = value
        End Set
    End Property
    Public Property Vorname() As String
        Get
            Vorname = _Vorname
        End Get
        Set(ByVal value As String)
            _Vorname = value
        End Set
    End Property
#End Region
#Region "Public Sub New"
    Public Sub New(ByVal Nachname As String, ByVal Vorname As String)
 
        Nachname = Nachname
        Vorname = Vorname
    End Sub
#End Region
 
End Class
 
Public Class DatenCollection
    Inherits CollectionBase
 
    Public Sub Add(ByVal Daten As clsDaten)
        MyBase.List.Add(Daten)
    End Sub
    Public Sub Remove(ByVal Daten As clsDaten)
        MyBase.List.Remove(Daten)
    End Sub
    Public ReadOnly Property Item(ByVal index As Integer) As clsDaten
        Get
            Return CType(MyBase.List(index), clsDaten)
        End Get
    End Property
 
End Class

Public Interface ISGlasListenPlugin
    Function GetCompanyName() As String
    Sub Load()
    Sub Run()
    Sub SetDaten(ByVal Daten As ISGlasListenDatenExport)
End Interface
 
Public Interface ISGlasListenDatenExport
    Function Nachname() As String
    Function Vorname() As String
End Interface