Public Class Foo
    Public Event Click As EventHandler
    Public Sub Fire()
        RaiseEvent Click(Me, EventArgs.Empty)
    End Sub
End Class

Public Class Bar
    Private WithEvents foo1 As New Foo
    Sub New()
        foo1.Fire()
    End Sub
    Private Sub foo1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles foo1.Click
        Console.WriteLine("Click")
    End Sub
End Class

Module Program
    Sub Main()
        Dim bar1 As New Bar 
    End Sub
End Module