Public Class Form1
 
    Private Sub Form2ButtonClick(ByVal sender As Object, ByVal e As EventArgs)
        Dim btn As Button = CType(sender, Button)
        MsgBox("Container: " & btn.Parent.Name & ", Name: " & btn.Name & "," & _
          "Bezeichnung: " & btn.Text)
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim f As New Form2
        AddHandler f.ButtonClicked, AddressOf Me.Form2ButtonClick
        f.Show()
    End Sub
 
End Class

Public Class Form2
 
    Public Event ButtonClicked(ByVal sender As Object, ByVal e As EventArgs)
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) _
        Handles Button1.Click, Button2.Click, Button3.Click, Button4.Click, _
        Button5.Click
        RaiseEvent ButtonClicked(sender, e)
    End Sub
 
End Class