Private Sub Window1_Loaded(ByVal sender As System.Object, ByVal e As _
      System.Windows.RoutedEventArgs) Handles MyBase.Loaded
        Control1.AddHandler(Button.ClickEvent, New RoutedEventHandler(AddressOf _
        ButtonsAll_CLick))
    End Sub
 
    Private Sub ButtonsAll_CLick(ByVal sender As Object, ByVal e As _
      RoutedEventArgs)
        Debug.WriteLine(CType(e.OriginalSource, Button).Name)
    End Sub

    Private Sub BtnAddHandler(ByVal ctrl As Control)
        Dim g As Grid = CType(ctrl.FindName("Grid1"), Grid)
        For Each c As Control In g.Children
            If c.GetType Is GetType(Button) Then
                AddHandler CType(c, Button).Click, AddressOf ButtonsAll_CLick
            End If
        Next
    End Sub