mcs/btests/Delegate_dll.vb

   1 REM Target: library
   2
   3 Imports System
   4
   5 NameSpace NSDelegate
   6         Public Class C
   7                 public Delegate Sub SD()
   8
   9                 Public Sub S
  10                         'Console.WriteLine("S - got called")
  11                 End Sub
  12
  13                 Public Sub callSD(d as SD)
  14                         'Console.WriteLine("SD - got called")
  15                         d.Invoke()
  16                 End Sub
  17         End Class
  18 End NameSpace