mcs/btests/EventH.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         Inherits C
  13
  14         Sub call_S()
  15                 S()
  16         End Sub
  17
  18         Sub EH() Handles MyBase.E
  19                 Console.WriteLine("event-H 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 End Module