mcs/btests/DelegateC2.vb

   1 Imports System
   2
   3 Module M
   4         Delegate Sub SD()
   5         sub f()
   6         End sub
   7
   8         Public Delegate Function SF(a as integer) as Integer
   9         Public Function f1(a as integer) as Integer
  10                 return a
  11         End Function
  12
  13         Sub Main()
  14                 dim d1 as SD
  15                 d1= new SD(AddressOf f1)
  16                 d1.Invoke()
  17         End Sub
  18 End Module