mcs/btests/EventE.vb

   1 Imports System
   2
   3 Public Class C
   4    Public Event E()
   5
   6    Sub S()
   7       RaiseEvent E()
   8    End Sub
   9 End Class
  10
  11
  12 Module M
  13 Sub S1()
  14    Dim x As New C()
  15    AddHandler x.E, AddressOf EH
  16    x.S()
  17 End Sub
  18
  19 Sub EH()
  20    Console.WriteLine("Event fired")
  21 End Sub
  22
  23 Sub Main()
  24         S1()
  25 End Sub
  26
  27 End Module
  28