Imports System
Imports System.IO
Imports System.Reflection
Imports System.Threading

Namespace ReliabilityLibrary

   Class WeakIdentities

      Sub SyncLockOnWeakId1()

         SyncLock GetType(WeakIdentities)
         End SyncLock

      End Sub

      Sub SyncLockOnWeakId2() 

         Dim stream As New MemoryStream()
         SyncLock stream
         End SyncLock

      End Sub

      Sub SyncLockOnWeakId3() 

         SyncLock "string"
         End SyncLock

      End Sub

      Sub SyncLockOnWeakId4() 

         Dim member As MemberInfo = _
            Me.GetType().GetMember("SyncLockOnWeakId1")(0)
         SyncLock member
         End SyncLock

      End Sub

      Sub SyncLockOnWeakId5()

         Dim outOfMemory As New OutOfMemoryException()
         SyncLock outOfMemory
         End SyncLock

      End Sub

   End Class

End Namespace

using System;
using System.IO;
using System.Reflection;
using System.Threading;

namespace ReliabilityLibrary
{
   class WeakIdentities
   {
      void LockOnWeakId1()
      { 
         lock(typeof(WeakIdentities)) {}
      }

      void LockOnWeakId2() 
      {
         MemoryStream stream = new MemoryStream();
         lock(stream) {} 
      }

      void LockOnWeakId3() 
      { 
         lock("string") {} 
      }

      void LockOnWeakId4() 
      { 
         MemberInfo member = this.GetType().GetMember("LockOnWeakId1")[0];
         lock(member) {} 
      }
      void LockOnWeakId5()
      {
         OutOfMemoryException outOfMemory = new OutOfMemoryException();
         lock(outOfMemory) {}
      }
   }
}