mcs/mbas/Test/tests/Event_exe.vb

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