mcs/btests/SyncLock1.vb

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