mcs/btests/Event_dll.vb

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