mcs/btests/EventD.vb

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