mcs/btests/SyncLock1.vb

   1 ' Unhandled Exception: System.ArgumentException: 'SyncLock' operand cannot
   2 ' be of type 'Boolean' because 'Boolean' is not a reference type.
   3
   4 Imports System
   5
   6 Module SyncLock1
   7     Class C
   8         Private Shared count = 0
   9
  10         Sub IncrementCount()
  11             SyncLock count = 0
  12                 count += 1
  13                 Console.WriteLine(count)
  14             End SyncLock
  15         End Sub
  16     End Class
  17
  18     Sub Main()
  19         Dim c As New C()
  20         c.IncrementCount()
  21     End Sub
  22
  23 End Module