Public Class Class1
    Private Shared m_SharedText As String
 
    Shared Property SharedText() As String
        Get
            SharedText = m_SharedText
        End Get
        Set(ByVal Value As String)
            m_SharedText = Value
        End Set
    End Property
 
    Public Sub New()
 
    End Sub
End Class