User209709384 posted
I finally got around to working on this again. For those of you who may be having the same problem the following will work in the Menu PreRender:
Protected Sub MainMenu_PreRender(ByVal sender As Object, ByVal e As System.EventArgs) Handles MainMenu.PreRender
Dim node As SiteMapNode = SiteMap.CurrentNode
If Not node.ParentNode.Equals(node.RootNode) And node.ParentNode IsNot Nothing Then
For Each item As MenuItem In MainMenu.Items
If item.DataPath = node.ParentNode.Key Then
item.Enabled = True
item.Selectable = True
item.Selected = True
End If
Next
End If
End Sub