mcs/mbas/Test/errors/AccessibilityC17.vb

   1 REM LineNo: 11
   2 REM ExpectedError: BC30456
   3 REM ErrorMessage: 'S2' is not a member of 'C1'.
   4
   5 Class C1
   6 End Class
   7
   8 Class C3
   9         Public Sub S()
  10                 Dim myC As New C1()
  11                 myC.S2()
  12         End Sub
  13 End Class
  14
  15 Module Accessibility
  16         Sub Main()
  17         End Sub
  18 End Module