mcs/btests/WithStatementC1.vb

   1 REM LineNo: 23\r
   2 REM ExpectedError: BC30456\r
   3 REM ErrorMessage: 'a1' is not a member of 'WithStatementC1.C2'. \r
   4 \r
   5 Imports System\r
   6 \r
   7 Module WithStatementC1\r
   8     Class C1\r
   9         Friend a1 As String = "Hello"\r
  10     End Class\r
  11 \r
  12     Class C2\r
  13         Public b1 As String = " World"\r
  14     End Class\r
  15 \r
  16     Sub main()\r
  17         Dim a As New C1()\r
  18         With a\r
  19             .a1 = "I am in With Statement"\r
  20             Dim b As New C2()\r
  21             With b\r
  22                 .b1 = "I am in nested With statement"\r
  23                 .a1 = "I am also in nested With statement"\r
  24             End With\r
  25         End With\r
  26 \r
  27     End Sub\r
  28 \r
  29 End Module