mcs/btests/SyncLockA.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 SyncLockA
   8
   9     Class C
  10
  11         Private Shared count = 0
  12
  13         Sub IncrementCount()
  14             Console.WriteLine("Before acquiring lock, Count is {0}", count)
  15             SyncLock GetType(C)
  16                 System.Threading.Thread.Sleep(1000)
  17                 count += 1
  18                 Console.WriteLine(count)
  19             End SyncLock
  20             Console.WriteLine("After releasing lock, Count is {0}", count)
  21         End Sub
  22
  23     End Class
  24
  25     Sub Main()
  26         Dim c As New C()
  27
  28         Dim td1 As New System.Threading.Thread( _
  29                     AddressOf c.IncrementCount)
  30         td1.Start()
  31
  32         c.IncrementCount()
  33     End Sub
  34
  35 End Module