WPF VB.Net

  xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
  xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
  x:Class="WpfApplication1.RoutedEventAddRemoveHandler" 
  Name="root">
    
      
        
        
        
      
    

  Clicking the button below
  Make new button and add handler to it

//File:Window.xaml.vb
Imports System.Windows
Imports System.Windows.Controls
Namespace WpfApplication1
  Public Partial Class RoutedEventAddRemoveHandler
    Private Sub MakeButton(sender As Object, e As RoutedEventArgs)
      Dim b2 As New Button()
      b2.Content = "New Button"
      root.Children.Insert(root.Children.Count, b2)
      DockPanel.SetDock(b2, Dock.Top)
      text1.Text = "click me..."
      b1.IsEnabled = False
    End Sub
  End Class
End Namespace