mcs/btests/InheritanceB.vb

   1 Public Class C1
   2 End Class
   3
   4 Public Class C2
   5     Inherits C1
   6 End Class
   7
   8 Module InheritanceB
   9     Sub Main()
  10         Dim b As C1 = New C2()
  11         Dim d As C2 = New C2()
  12     End Sub
  13 End Module