mcs/btests/EventF.vb

   1 Imports System
   2
   3 Class C
   4         Delegate Sub EH()
   5         Public Event E as EH
   6
   7         Public Sub S()
   8                 RaiseEvent E
   9         End Sub
  10 End Class
  11
  12 Class C1
  13         Sub call_S()
  14                 dim x as C = new C()
  15                 AddHandler x.E, AddressOf xh
  16                 x.S()
  17         End Sub
  18
  19         Sub xh()
  20                 Console.WriteLine("event called")
  21         End Sub
  22 End Class
  23
  24 Module M
  25         Sub Main()
  26                 dim y as new C1
  27                 y.call_S()
  28         End Sub
  29
  30 End Module