' Create menu
Dim menu1 As New XamMenu()
Me.LayoutRoot.Children.Add(menu1)
menu1.Height = 25
' Create Shop menu item
Dim parentItem As New XamMenuItem()
parentItem.Header = "View"
menu1.Items.Add(parentItem)
' Create child menu item
Dim childItem As New XamMenuItem()
childItem.Header = "Property Window"
childItem.IsCheckable = True
parentItem.Items.Add(childItem)
' Create child menu item
childItem = New XamMenuItem()
childItem.Header = "Editing Window"
childItem.IsCheckable = True
parentItem.Items.Add(childItem)