mcs/btests/AccessibilityC3.vb

   1 Class C1
   2 End Class
   3
   4 Class C2
   5         Inherits C1
   6         Public Sub S1()
   7                 S2()
   8                 C = 10
   9         End Sub
  10 End Class
  11
  12 Class C3
  13         Public Sub S()
  14                 Dim myC As New C1()
  15                 myC.S2()
  16                 myC.C = 20
  17         End Sub
  18 End Class
  19
  20 Module Accessibility
  21         Sub Main()
  22         End Sub
  23 End Module