Module Module1
WithEvents ECT As New EventClassTest
Sub Print1() Handles ECT.EventTest
Console.WriteLine("Print1()")
End Sub
Sub Print2() Handles ECT.EventTest
Console.WriteLine("Print2()")
End Sub
Sub Print3() Handles ECT.EventTest
Console.WriteLine("Print3()")
End Sub
Sub Main()
ECT.RaiseEvents()
End Sub
Class EventClassTest
Public Event EventTest()
Sub RaiseEvents()
RaiseEvent EventTest()
End Sub
End Class
End Module
' run:
'
' Print1()
' Print2()
' Print3()