mcs/btests/ConstituentTypesC1.vb

   1 REM LineNo: 9
   2 REM ExpectedError: BC30508
   3 REM ErrorMessage: 'F' cannot expose a Private type outside of the Public class 'C1'.
   4
   5 Imports System
   6 Public Class C1
   7         Private Class C2
   8         End Class
   9         Public Function F() As C2 'Function F exposes private class C2
  10         End Function
  11
  12         Private Function F1() As C2
  13         End Function
  14 End Class
  15 Module ConstituentTypes
  16         Sub Main()
  17                 Dim myC As New C1()
  18
  19         End Sub
  20 End Module