mcs/btests/SyncLockC2.vb

   1 REM LineNo: 14\r
   2 REM ExpectedError: BC30752\r
   3 REM ErrorMessage: 'On Error' statements are not valid within 'SyncLock' statements.\r
   4 \r
   5 Imports System\r
   6 \r
   7 Module SyncLockC2\r
   8 \r
   9     Class C\r
  10 \r
  11         Sub f4()\r
  12             Dim i As Integer = 0\r
  13             SyncLock GetType(C)\r
  14                 On Error GoTo ErrorHandler\r
  15                 i = 5 / i\r
  16             End SyncLock\r
  17             Exit Sub\r
  18 ErrorHandler:\r
  19             i = 5\r
  20             Resume   ' Execution resumes with the statement that caused the error\r
  21         End Sub\r
  22 \r
  23     End Class\r
  24 \r
  25     Sub Main()\r
  26         Dim c As New C()\r
  27         c.f4()\r
  28     End Sub\r
  29 \r
  30 End Module