mcs/btests/EventD.vb

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