mcs/btests/AccessibilityC1.vb

   1 Imports System 'Should generate five compilation errors
   2 Class C1
   3         Private a As Integer=10
   4         Protected b As Integer=30
   5         Private Sub S()
   6         End Sub
   7 End Class
   8
   9 Class C2
  10         Inherits C1
  11         Public Sub S1()
  12                 S()
  13                 Console.WriteLine(a)
  14         End Sub
  15 End Class
  16
  17 Class C3
  18         Public Sub S()
  19                 Dim myC As New C1()
  20                 myC.S()
  21                 Console.WriteLine(myC.a)
  22                 Console.WriteLine(myC.b)
  23         End Sub
  24 End Class
  25 Module Accessibility
  26         Sub Main()
  27                 Dim myC1 As New C1()
  28                 myC1.S()
  29                 Console.WriteLine(myC1.a)
  30                 Console.WriteLine(myC1.b)
  31
  32                 Dim myC2 As New C2()
  33                 myC2.S1()
  34
  35                 Dim myC3 As New C3()
  36                 myC3.S()
  37         End Sub
  38 End Module