mcs/btests/EventB.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 \r
  12 Class C1
  13         dim WithEvents x as C = new C()
  14         Sub call_S()
  15                 x.S()
  16         End Sub
  17
  18         Sub EH() Handles x.E
  19                 Console.WriteLine("event called")
  20         End Sub
  21 End Class
  22
  23 Module M
  24         Sub Main()
  25                 dim y as new C1
  26                 y.call_S()
  27         End Sub
  28
  29 End Module