mcs/btests/InterfaceC1.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 InterfaceC1\r
  13     Sub Main()\r
  14         Dim x As I = New I()\r
  15     End Sub\r
  16 End Module\r