6 System
.Console
.WriteLine("s called")
9 Public Delegate
Function SF(a
as integer) as Integer
10 Public Function f1(a
as integer) as Integer
11 System
.Console
.WriteLine("f1 called")
15 Public Function TD(d
as SD
) as Integer
21 d1
= new SD(AddressOf f
)
28 dim d3
as new SD(AddressOf f
)
32 d4
= new SF(AddressOf f1
)
33 Dim i
as Integer = d4
.Invoke(10)
35 Throw
new System
.Exception ("#A1, Unexpected result")