mcs/btests/InterfaceF.vb

   1 Interface I\r
   2     Sub F1(ByVal i As Integer)\r
   3     Sub F2(ByVal i As Integer)\r
   4 End Interface\r
   5 \r
   6 Class C1\r
   7     Implements I\r
   8 \r
   9     Public Sub F1(ByVal i As Integer) Implements I.F1\r
  10     End Sub\r
  11     Public Sub F2(ByVal i As Integer) Implements I.F2\r
  12     End Sub\r
  13 End Class\r
  14 \r
  15 Module InterfaceD\r
  16     Sub Main()\r
  17         Dim myC As C1 = New C1()\r
  18         myC.F1(10)\r
  19         myC.F2(20)\r
  20     End Sub\r
  21 End Module\r