Sub CreateMenu()
        Dim MI As EO.Web.MenuItem
        Dim MII As EO.Web.MenuItem
        Dim MIII As EO.Web.MenuItem
        Dim Add As Boolean

        MyMenu.Items.Clear()
        MyMenu.EnableScrolling = True
        MyMenu.EnableViewState = False 
        MyMenu.ScrollDownLookID = "scroll_down"
        MyMenu.ScrollUpLookID = "scroll_up"
        MyMenu.ScrollSpeed = 100 

        Dim SQL As String
        Dim I As SByte = 0

        Dim CnMenu As New SqlClient.SqlConnection
        Dim CnSubMenu As New SqlClient.SqlConnection
        Dim CnFunction As New SqlClient.SqlConnection

        SQL = "Select MasterMainMenu.MainMenuID, MasterMainMenu.MainMenuName, MainMenuLink from MasterMainMenu order by Seq "
        GetCN(CnMenu)

        Dim CmMenu As New SqlClient.SqlCommand(SQL, CnMenu)
        Dim RdMenu As SqlClient.SqlDataReader
        RdMenu = CmMenu.ExecuteReader()
        Do While RdMenu.Read
            MI = New EO.Web.MenuItem
            MI.ItemID = RdMenu.Item("MainMenuID").ToString.Trim
            MI.Text.Html = RdMenu.Item("MainMenuName").ToString.Trim
            If RdMenu.Item("MainMenuLink").ToString.Trim <> "" Then MI.NavigateUrl = RdMenu.Item("MainMenuLink").ToString.Trim

            MI.HoverStyle.Font.Size = 8
            MI.HoverStyle.Font.Bold = True
            MI.NormalStyle.Font.Bold = True
            MI.NormalStyle.Font.Size = 8
            MI.HoverStyle.ForeColor = Drawing.Color.RoyalBlue
            MyMenu.Items.Add(MI)

            SQL = "Select FunctionID, SubMainMenuName, SubMainMenuID, FunctionLink from MasterSubMainMenu where MainMenuID='" & RdMenu.Item("MainMenuID").ToString.Trim & "' Order By Seq"
            GetCN(CnSubMenu)
            Dim CmSubMenu As New SqlCommand(SQL, CnSubMenu)
            Dim RdSubMenu As SqlClient.SqlDataReader
            RdSubMenu = CmSubMenu.ExecuteReader
            Do While RdSubMenu.Read
                MII = New EO.Web.MenuItem
                MII.ItemID = RdSubMenu.Item("SubMainMenuID").ToString.Trim
                MII.HoverStyle.ForeColor = Drawing.Color.Red
             
                MII.HoverStyle.Font.Size = 8
                MII.HoverStyle.Font.Bold = True
                MII.NormalStyle.Font.Bold = True
                MII.NormalStyle.Font.Size = 8
                MII.Text.Html = RdSubMenu.Item("SubMainMenuName").ToString.Trim

                If SetStringValue(RdSubMenu.Item("FunctionLink")) <> "" Then
                    If Security.IsUserAllowed(Session("UserId"), SetStringValue(RdSubMenu.Item("FunctionID")), UserAccess.CanDisplay) = True Then
                        MII.NavigateUrl = RdSubMenu.Item("FunctionLink").ToString.Trim
                        MII.Status = RdSubMenu.Item("FunctionLink").ToString.Trim
                        Add = True
                    End If
                Else
                    SQL = "Select MasterFunction.FunctionID,MasterFunction.FunctionName,FunctionLink, FunctionTarget from MasterUserFunctionDetail inner join MasterFunction On MasterFunction.FunctionID=MasterUserFunctionDetail.FunctionID where MasterUserFunctionDetail.UserID='" & Trim(Session("UserID")) & "' and MasterFunction.MainMenuID='" & SetStringValue(RdSubMenu.Item("SubMainMenuID")) & "' and ISNULL(DISABLED,'') = 'N' Order By MasterFunction.Seq "
                    GetCN(CnFunction) 

                    Dim CmFunction As New SqlCommand(SQL, CnFunction)
                    Dim RdFunction As SqlClient.SqlDataReader
                    RdFunction = CmFunction.ExecuteReader 
                    If RdFunction.HasRows = False Then
                        Add = False
                    Else
                        Do While RdFunction.Read
                            If Security.IsUserAllowed(Session("UserId"), RdFunction.Item("FunctionId").ToString.Trim, UserAccess.CanDisplay) = True Then
                                MIII = New EO.Web.MenuItem
                                MIII.ItemID = RdFunction.Item("FunctionId").ToString.Trim
                                MIII.HoverStyle.Font.Size = 8
                                MIII.HoverStyle.Font.Bold = True
                                MIII.HoverStyle.ForeColor = Drawing.Color.Red
                       
                                MIII.NormalStyle.Font.Bold = True
                                MIII.NormalStyle.Font.Size = 8
                                MIII.NavigateUrl = RdFunction.Item("FunctionLink").ToString.Trim
                                MIII.Status = RdFunction.Item("FunctionLink").ToString.Trim
                                MIII.Text.Html = RdFunction.Item("FunctionName").ToString.Trim
                                MIII.TargetWindow = RdFunction.Item("FunctionTarget").ToString.Trim
                                MII.SubMenu.Items.Add(MIII)
                            End If
                        Loop
                        Add = True
                    End If
                    SetToNothing(CnFunction, RdFunction, CmFunction)
                End If
                If Add = True Then MyMenu.Items(I).SubMenu.Items.Add(MII)
            Loop
            I = I + 1 
            SetToNothing(CnSubMenu, RdSubMenu, CmSubMenu)
        Loop
        SetToNothing(CnMenu, RdMenu, CmMenu)
    End Sub