mcs/mbas/Test/errors/AccessibilityC8.vb

   1 REM LineNo: 16
   2 REM ExpectedError: BC30390
   3 REM ErrorMessage: 'C1.Private Sub S()' is not accessible in this context because it is 'Private'.
   4
   5 Imports System 'Should generate five compilation errors
   6 Class C1
   7         Private a As Integer=10
   8         Protected b As Integer=30
   9         Private Sub S()
  10         End Sub
  11 End Class
  12
  13 Class C3
  14         Public Sub S()
  15                 Dim myC As New C1()
  16                 myC.S()
  17         End Sub
  18 End Class
  19 Module Accessibility
  20         Sub Main()
  21         End Sub
  22 End Module