mcs/btests/DelegateC2.vb

   1 REM LineNo: 19
   2 REM ExpectedError: BC30408
   3 REM ErrorMessage: Method 'Public Function f1(a As Integer) As Integer' does not have the same signature as delegate 'Delegate Sub SD()'.
   4
   5 Imports System
   6
   7 Module M
   8         Delegate Sub SD()
   9         sub f()
  10         End sub
  11
  12         Public Delegate Function SF(a as integer) as Integer
  13         Public Function f1(a as integer) as Integer
  14                 return a
  15         End Function
  16
  17         Sub Main()
  18                 dim d1 as SD
  19                 d1= new SD(AddressOf f1)
  20                 d1.Invoke()
  21         End Sub
  22 End Module