Public Class SharedClass
 
    Private Shared m_Variable as String
    Public Shared Property Variable as string
        Get
            return m_Variable
        End Get
        Set (Value as STring)
            m_Variable = Value
        End Set
    End Property
 
End Class

SharedClass.Variable = "dieser wert soll überall verfügbar sein"
 
' so hole ichs wieder raus, egal von wo
Dim sTemp as sTring = SharedClass.Variable
MessageBox.Show(stemp)