Public Class EventClass
    Public Shared Event MyEvent(ByVal name As String)
    Public Shared Sub SomethingChanged(ByVal form As Form)
        RaiseEvent MyEvent(form.Text)
    End Sub
End Class

Public Class Form1
    Public Sub New()
        InitializeComponent()
        AddHandler EventClass.MyEvent, AddressOf SomethingChanged
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        EventClass.SomethingChanged(Me)
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button2.Click
        Dim frm2 As New Form2
        frm2.Show()
    End Sub
    Public Sub SomethingChanged(ByVal name As String)
        Label1.Text = name
    End Sub
End Class

Public Class Form2
    Public Sub New()
        InitializeComponent()
        AddHandler EventClass.MyEvent, AddressOf SomethingChanged
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        EventClass.SomethingChanged(Me)
    End Sub
    Public Sub SomethingChanged(ByVal name As String)
        Label1.Text = name
    End Sub
End Class