//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