mcs/mbas/Test/errors/SyncLockC2.vb

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