mcs/btests/WithStatementC3.vb

   1 REM LineNo: 14\r
   2 REM ExpectedError: BC30201\r
   3 REM ErrorMessage: Expression expected.\r
   4 \r
   5 Imports System\r
   6 \r
   7 Module WithStatementC3\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 \r
  15             .a1 = 20\r
  16         End With\r
  17 \r
  18     End Sub\r
  19 \r
  20 End Module