mcs/btests/InterfaceC6.vb

   1 Imports System
   2 Interface I
   3         Sub S(byVal a As Integer,Optional b As Integer=20)
   4 End Interface
   5 Class C1
   6         Implements I
   7         Sub S() Implements I.S
   8         End Sub
   9         Sub S(byRef a As Integer) Implements I.S
  10         End Sub
  11         Sub S(byVal a as Integer, Optional b As Integer=30) Implements I.S
  12         End Sub
  13 End Class
  14 Class C2        'Class implements the same method more than once
  15         Implements I
  16         Public Sub S(byVal a As Integer,Optional b As Integer=20) Implements I.S
  17         End Sub
  18         Public Sub H(byVal a As Integer,Optional b As Integer=20) Implements I.S
  19         End Sub
  20 End Class
  21 Module InterfaceC6
  22         Sub Main()
  23
  24         End Sub
  25 End Module
  26