Public Sub New()
        InitializeComponent()
        Using fs As New IO.FileStream("d:\panel.xaml", IO.FileMode.Open, _
          IO.FileAccess.Read)
            Dim dp As DockPanel = CType(XamlReader.Load(fs), DockPanel)
 
            AddHandler CType(dp.FindName("MenuItem1"), MenuItem).Click, _
              AddressOf MenuButton1_Click
            AddHandler CType(dp.FindName("MenuItem2"), MenuItem).Click, _
            AddressOf MenuButton2_Click
            'oder
            dp.AddHandler(MenuItem.ClickEvent, New RoutedEventHandler(AddressOf _
              MenuButtonsAll_Click))
 
            Me.Content = dp
        End Using
    End Sub
 
    Private Sub MenuButton1_Click(ByVal sender As Object, ByVal e As _
      RoutedEventArgs)
        Debug.WriteLine("Menu1")
    End Sub
    Private Sub MenuButton2_Click(ByVal sender As Object, ByVal e As _
      RoutedEventArgs)
        Debug.WriteLine("Menu2")
    End Sub
 
    Private Sub MenuButtonsAll_Click(ByVal sender As Object, ByVal e As _
      RoutedEventArgs)
        Debug.WriteLine(CType(e.OriginalSource, MenuItem).Name)
    End Sub