mcs/btests/DelegateC1.vb

   1 Imports System
   2
   3 Module M
   4         Delegate Sub SD()
   5         sub f(i as integer)
   6         End sub
   7
   8
   9         Sub Main()
  10                 dim d1 as SD
  11                 d1= new SD(AddressOf f)
  12                 d1.Invoke()
  13         End Sub
  14 End Module