Imports System
Imports System.Data
Imports System.Configuration
Imports System.Collections
Imports System.Web
Imports System.Web.Security
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Web.UI.WebControls.WebParts
Imports System.Web.UI.HtmlControls

Partial Public Class Menu_UserRoles
    Inherits System.Web.UI.Page
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)
        'Apply Roles
        Dim Roles As String = "Undefined" 'By default
        If cbAdmins.Checked Then
            Roles &= ", Admins"
        End If
        If cbOwners.Checked Then
            Roles &= ", Owners"
        End If
        If cbGuests.Checked Then
            Roles &= ", Guests"
        End If
        myMenu.Roles = Roles
    End Sub
End Class