Public Class GlobaleWerte
    Private Shared m_Nutzernamen As String
    Public Shared Property Nutzernamen() As String
        Get
            Debug.WriteLine("gelesen am:" & Now.ToString())
            Return m_Nutzernamen
        End Get
        Set(ByVal Value As String)
            m_Nutzernamen = Value
            Debug.WriteLine("beschrieben am:" & Now.ToString())
        End Set
    End Property
End Class