mcs/mbas/Test/tests/Delegate_exe.vb

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