Public Class Menu
    Inherits System.Web.UI.UserControl

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        If Session.Item("LogedIn") Is Nothing Then
            Me.NavigationMenu.Items.Clear()
            get_menu(1)
            Exit Sub
        End If
        If Session.Item("LogedIn") = False Then
            Me.NavigationMenu.Items.Clear()
            get_menu(1)
            Exit Sub
        End If
        Me.NavigationMenu.Items.Clear()
        get_menu(Session.Item("Menuhandler"))


        '        Dim mi As New System.Web.UI.WebControls.MenuItem
        '        mi.Text = "Hallo"
        '        Me.NavigationMenu.Items.Add(mi)
    End Sub

    Sub get_menu(ByVal menutype As Integer)
        Dim dh As New clsDatahandling
        Dim Menuentries As New DataTable
        Menuentries = dh.Get_Menu(menutype)
        Dim found As Boolean = False
        For Each dr As DataRow In Menuentries.Rows
            Dim mi As New System.Web.UI.WebControls.MenuItem
            mi.Text = dr.Item(1).ToString
            mi.Value = dr.Item(2).ToString
            mi.ToolTip = dr.Item(3).ToString
            mi.NavigateUrl = dr.Item(4).ToString
            If dr.Item("Parentnr") = 0 Then
                Me.NavigationMenu.Items.Add(mi)
            Else
                found = False
                For Each mitem As System.Web.UI.WebControls.MenuItem In Me.NavigationMenu.Items
                    If mitem.Value.ToString = dr.Item("Parentnr").ToString Then
                        mitem.ChildItems.Add(mi)
                        found = True
                        Exit For
                    End If
                Next
                If found = False Then
                    For Each mitem As System.Web.UI.WebControls.MenuItem In Me.NavigationMenu.Items
                        For Each mitem2 As System.Web.UI.WebControls.MenuItem In mitem.ChildItems
                            If mitem2.Value.ToString = dr.Item("Parentnr").ToString Then
                                mitem2.ChildItems.Add(mi)
                                found = True
                                Exit For
                            End If
                        Next
                    Next
                End If
            End If
        Next

    End Sub




    Protected Sub NavigationMenu_MenuItemClick(sender As Object, e As MenuEventArgs) Handles NavigationMenu.MenuItemClick

    End Sub
End Class