mcs/btests/EventC.vb

   1 Imports System
   2
   3 Class C
   4         Public Event E (ByVal i as integer)
   5
   6         Public Sub S()
   7                 RaiseEvent E(10)
   8         End Sub
   9 End Class
  10
  11 Class C1
  12         dim WithEvents x as C = new C()
  13
  14         Sub call_S()
  15                 x.S()
  16         End Sub
  17
  18         Sub EH(i as Integer) Handles x.E
  19                 Console.WriteLine("event called : " + i)
  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 End Module
  29
  30