mcs/btests/InterfaceA.vb

   1 Interface I\r
   2     Function F()\r
   3 End Interface\r
   4 \r
   5 Class C\r
   6     Implements I\r
   7 \r
   8     Function F() Implements I.F\r
   9     End Function\r
  10 End Class\r
  11 \r
  12 Module InterfaceA\r
  13     Sub Main()\r
  14         Dim x As C = New C()\r
  15         x.F()\r
  16 \r
  17         Dim y As I = New C()\r
  18         y.F()\r
  19     End Sub\r
  20 End Module\r