mcs/btests/WithStatementC4.vb

   1 REM LineNo: 14\r
   2 REM ExpectedError: BC30085\r
   3 REM ErrorMessage: 'With' must end with a matching 'End With'.\r
   4 \r
   5 Imports System\r
   6 \r
   7 Module WithStatementC4\r
   8     Class C1\r
   9         Public a1 As Integer = 10\r
  10     End Class\r
  11 \r
  12     Sub main()\r
  13         Dim a As New C1()\r
  14         With a\r
  15             .a1 = 20\r
  16 \r
  17     End Sub\r
  18 \r
  19 End Module