mcs/btests/Delegate_dll.vb

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