mcs/mbas/Test/tests/typemembers/InterfaceF.vb

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