mcs/btests/WithStatementC3.vb

   1 REM LineNo: 14
   2 REM ExpectedError: BC30201
   3 REM ErrorMessage: Expression expected.
   4
   5 Imports System
   6
   7 Module WithStatementC3
   8     Class C1
   9         Public a1 As Integer = 10
  10     End Class
  11
  12     Sub main()
  13         Dim a As New C1()
  14         With
  15             .a1 = 20
  16         End With
  17
  18     End Sub
  19
  20 End Module