mcs/btests/InheritanceB.vb

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