Imports Gizmox.WebGui.Forms

Public Class LoginInfo

    Public Shared Property Username() As String

        Get

            Return VWGContext.Current.Session("Username")

        End Get

        Set(ByVal value As String)

            VWGContext.Current.Session("Username") = value

        End Set

    End Property

End Class

Imports Gizmox.WebGui.Forms

Public Class ShowStorateScopes

    Inherits Form

    Private Sub ShowStorateScopes_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        LoginInfo.Username = "JohnDoe"

    End Sub

    Private Sub btnShowUser_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnShowUser.Click

        MessageBox.Show(LoginInfo.Username)

    End Sub

End Class