mcs/btests/AccessibilityA.vb

   1 Imports System
   2 Class C1
   3         Protected Friend a As Integer
   4 End Class
   5 Class C2
   6   Inherits C1
   7         Public Sub S()
   8                 a=100
   9         End Sub
  10 End Class
  11
  12 Module Accessibility
  13         Sub Main()
  14                 Dim myC1 As New C1()
  15                 myC1.a=1000
  16                 Dim myC2 As New C2()
  17                 myC2.S()
  18
  19         End Sub
  20 End Module