mcs/btests/EventA.vb

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