mcs/btests/Delegate_exe.vb

   1 Imports System
   2 Imports NSDelegate
   3
   4 Class C1
   5         dim x1 as new C()
   6         sub __f()
   7                 System.Console.WriteLine("__f called")
   8         End sub
   9
  10
  11         public sub s()
  12                 x1.callSD(AddressOf Me.__f)
  13         End sub
  14 End Class
  15
  16 Module M
  17         Sub main
  18                 dim x as new C1()
  19                 x.s()
  20         End Sub
  21 End Module