mcs/mbas/Test/dlls/Event_dll.vb

   1 REM Target: library
   2
   3 Imports System
   4
   5 NameSpace NSEvent
   6
   7 Class C
   8
   9         Delegate Sub EvtHan(i as integer, y as string)
  10         Public Event E as EvtHan
  11
  12         Public Sub S()
  13                 RaiseEvent E (10, "abc")
  14         End Sub
  15 End Class
  16
  17 End NameSpace