SharePoint Custom Site Navigation

Imports Microsoft.SharePoint.Publishing
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Xml.Linq

Namespace PrestoFX.MasterPages
    Public Class PrestoFX : Inherits MasterPage
      
        Protected Overrides Sub OnLoad(ByVal e As System.EventArgs)
            MyBase.OnLoad(e)
            Dim menu As Menu = DirectCast(FindControl("Menu1"), Menu)


            Dim doc As XDocument = XDocument.Load("C:\Inetpub\wwwroot\wss\VirtualDirectories\80\web.sitemap")
            Dim query = From c In doc.Element("menuitems").Elements("menuitem")

            Dim parentItem As MenuItem
            For Each element As XElement In query
                parentItem = New MenuItem()

                Dim subQuery = From c In element.Elements("menuitem")
                For Each node As XElement In subQuery
                    Dim item As New MenuItem()
                    With item
                        .Text = node.Attribute("text")
                        .NavigateUrl = node.Attribute("navigateurl")
                        .ToolTip = node.Attribute("tooltip")
                        .ImageUrl = "tool.png"
                    End With
                    parentItem.ChildItems.Add(item)

                Next

                With parentItem
                    .Text = element.Attribute("text")
                    .NavigateUrl = element.Attribute("navigateurl")
                    .ToolTip = element.Attribute("tooltip")
                    .ImageUrl = "heart.png"
                End With
                menu.Items.Add(parentItem)

            Next

            AddCutomNodes(menu)

        End Sub

        Protected Sub AddCutomNodes(ByRef menu As Menu)
            menu.Items.Add(New MenuItem("ZOMG NEW!!!!!"))

        End Sub

    End Class

   

End Namespace