mcs/btests/InterfaceD.vb

   1 Interface I\r
   2     Function F1(ByVal i As Integer)\r
   3     Function F2(ByVal i As Integer)\r
   4 End Interface\r
   5 \r
   6 Class C\r
   7     Implements I\r
   8 \r
   9     Function F(ByVal i As Integer) Implements I.F1, I.F2\r
  10     End Function\r
  11 End Class\r
  12 \r
  13 Module InterfaceD\r
  14     Sub Main()\r
  15         Dim x As C = New C()\r
  16         x.F(10)\r
  17     End Sub\r
  18 End Module\r