' メニューを作成します
Dim menu1 As New XamMenu()
Me.LayoutRoot.Children.Add(menu1)
menu1.Height = 25
' Shop メニュー項目を作成します
Dim item As New XamMenuItem()
item.Header = "Shop"
Dim image As New Image()
image.Source = New BitmapImage(New Uri("Images/ShoppingCart24.png", UriKind.Relative))
item.Icon = image
menu1.Items.Add(item)
' CheckOut メニュー項目を作成します
item = New XamMenuItem()
item.Header = "CheckOut"
image = New Image()
image.Source = New BitmapImage(New Uri("Images/Check24.png", UriKind.Relative))
item.Icon = image
menu1.Items.Add(item)