Public MustInherit Class PersistentObject 'abstrakte Klasse
 
 
      Public Function test()
	Dim locTypeInstanz As Type = Me.GetType
	Dim ret as Collection
        For Each locMember As MemberInfo In locTypeInstanz.GetMembers
            'Console.WriteLine(locMember.Name.ToString)
            For Each locAttrib As Attribute In locMember.GetCustomAttributes( _
              True)
                If locAttrib.GetType.Name = "MeinAttribute" Then
                    ret.Add(locMember)
                End If
 
            Next
 
        Next
 
	return ret
 
    End Sub
 
End Class
 
 
 
 
 
Public Class Person
    Inherits PersistentFramework.PersistentObject
 
'Private Datenwerte
Protected pName As String
 
 
#Region "Öffentliche Eigenschaften"
	Public Property Name() As String
        	Get
            		Return Me.pMarke
	        End Get
        	Set(ByVal Value As String)
            		Me.pMarke = Value
 
	        End Set
	End Property
#End Region
End Class