Public Class cPers
    Private Shared m_Id as integer
    Private Shared m_Name as string
    Public Shared Function Init(ID as integer) as Boolean
        ' infos zur Person laden
    End Function
 
    Public Shared Property ID as integer
    ....
End Class