2 REM ExpectedError: BC30752
\r
3 REM ErrorMessage: 'On Error' statements are not valid within 'SyncLock' statements.
\r
11 Private Shared count = 0
\r
13 Sub IncrementCount()
\r
14 Console.WriteLine("Before acquiring lock, Count is {0}", count)
\r
16 System.Threading.Thread.Sleep(1000)
\r
18 Console.WriteLine(count)
\r
20 Console.WriteLine("After releasing lock, Count is {0}", count)
\r
28 Dim td1 As New System.Threading.Thread( _
\r
29 AddressOf c.IncrementCount)
\r