Public Class Person
    Inherits Object
 
    Private _N As String
    Private _V As String
    Protected Sub New()
        MyBase.New()
    End Sub
 
    Public Property Nachname() As String
        Get
            Return _N
        End Get
        Set(ByVal value As String)
            _N = value
        End Set
    End Property
 
    Protected Sub New(ByVal Vorname As String, ByVal Nachname As String)
        MyBase.New()
        _N = Nachname
        _V = Vorname
    End Sub
 
    Public Shared Function GetInstance() As Person
        Return New Person
    End Function
 
    Public Shared Function GetInstance(ByVal N As String, ByVal V As String) As _
      Person
        If N.Equals("??") Then Return Nothing
        Return New Person(V, N)
    End Function
End Class