Public Class PersonX
 
    Public Shared ReadOnly Property KurtSchmalz As Person
        Get
            Return New Person("Kurt Schmalz", "Metzger", 1970)
        End Get
    End Property
 
    Public Shared ReadOnly Property GundolfBoni As Person
        Get
            Return New Person("Gundolf Boni", "Investmentbanker", 1982)
        End Get
    End Property
 
    Public Shared ReadOnly Property AlbertusSpekulatius As Person
        Get
            Return New Person("Albertus Spekulatius", "Wertpapierbroker", 1990)
        End Get
    End Property
End Class
 
 
Public Class Person
 
    Dim _name As String
    Public ReadOnly Property Name As String
        Get
            Return _name
        End Get
    End Property
 
    Dim _beruf As String
    Public ReadOnly Property Beruf As String
        Get
            Return _beruf
        End Get
    End Property
 
    Public Property _Geburtsjahr As UShort
    Public ReadOnly Property Geburtsjahr As UShort
        Get
            Return _Geburtsjahr
        End Get
    End Property
 
    Public Sub New(pname As String, pberuf As String, pgeburtsjahr As UShort)
        _name = pname
        _beruf = pberuf
        _Geburtsjahr = pgeburtsjahr
    End Sub
End Class

Imports <Projektbezeichnung>.PersonX
 
Public Class frmDemo
 
    Private Sub frmDemo_Load(sender As System.Object, _
        e As System.EventArgs) Handles MyBase.Load
 
        Personbearbeitung(KurtSchmalz)
        'oder
        Dim pers As Person = GundolfBoni
 
    End Sub
 
    Public Sub Personbearbeitung(ByVal p As Person)
        'Code zur Bearbeitung einer Person
    End Sub
End Class