Namespace globalvars
    Public Class cGlobal
        Shared _theVariable As Integer
        Public Shared Property TheVariable() As Integer
            Set(value As Integer)
                _theVariable = value
            End Set
            Get
                Return _theVariable
            End Get
        End Property
    End Class
End Namespace