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

   1 'Author:
   2 '   V. Sudharsan (vsudharsan@novell.com)
   3 '
   4 ' (C) 2005 Novell, Inc.
   5
   6 Imports System
   7
   8 Interface A
   9         Function A1()
  10 End Interface
  11
  12 Class B
  13         Implements A
  14         Public Function A1() implements A.A1
  15         End Function
  16 End Class
  17
  18 Class C
  19         Inherits B
  20 End Class
  21
  22 Module A2
  23         Sub Main()
  24                 Dim x as A = new B()
  25                 Dim x1 as C= new C()
  26                 x = x1
  27         End Sub
  28 End Module