mcs/btests/Event_exe.vb

   1 Imports System
   2 Imports NSEvent
   3
   4 NameSpace NSEvent
   5 Class C1
   6         Inherits C
   7
   8         Sub call_S()
   9                 S()
  10         End Sub
  11
  12         Sub EH(i as Integer, y as string) Handles MyBase.E
  13                 Console.WriteLine("event-H called")
  14         End Sub
  15 End Class
  16
  17 End NameSpace
  18
  19 Module M
  20         Sub Main()
  21                 dim y as new C1 ()
  22                 y.call_S()
  23         End Sub
  24 End Module