Private Sub getUserInfo()

        'Add reference to DotNetNuke.dll        Dim mRoles As New DotNetNuke.Entities.Users.OnlineUserInfo        Dim mUserRoles As New DotNetNuke.Security.Roles.RoleController        Dim mUser As DotNetNuke.Entities.Users.UserInfo = DotNetNuke.Entities.Users.UserController.GetCurrentUserInfo

        Dim showRoles As String = ""

        For Each i As String In mUserRoles.GetRolesByUser(mUser.UserID, mRoles.PortalID)

            showRoles += i.ToString() + ", "        Next

        'Me.Label1.Text = "UserName: " + mUser.Username

        'Me.Label1.Text += "<br /> Full Name: " + mUser.FullName        'Me.Label1.Text += "<br /> UserID: " + mRoles.UserID.ToString()        'Me.Label1.Text += "<br /> Roles: " + showRoles    End Sub