Public Delegate Sub EventHandler(ByVal s As Object, ByVal e As EventArgs)

Public Class DemoEvent
	Public Event Click As EventHandler
End Class

Module Application
Public WithEvents A As DemoEvent

Sub DemoOnClick(ByVal s As Object, ByVal e As Object) Handles A.Click
	Console.WriteLine("Dobr den")
End Sub
' . . .
End Module
