Private Class lockObject
        Public LockCount As Long
        Public id As Long
        Public Sub New(ByVal lm As CLockController)
            LockCount = 1
            lm._locknum += 1
            id = lm._locknum
        End Sub
    End Class
 
    Private _locks As New Hashtable()
    Private _locknum As Long
    Public Sub GetLock(ByVal type As String, ByVal name As String, ByVal stream _
      As String)
        Dim lockName As String = type + "//" + name + "//" + stream
        Dim lockItem As lockObject
 
        SyncLock (_locks.SyncRoot)
            lockItem = _locks(lockName)
            If lockItem Is Nothing Then
                lockItem = New lockObject(Me)
                _locks.Add(lockName, lockItem)
            Else
                lockItem.LockCount += 1
            End If
        End SyncLock
        Monitor.Enter(lockItem)
    End Sub
 
    Public Sub FreeLock(ByVal type As String, ByVal name As String, ByVal _
      stream As String)
        Dim lockName As String = type + "//" + name + "//" + stream
        Dim lockItem As lockObject
 
        SyncLock (_locks.SyncRoot)
            lockItem = _locks(lockName)
            If lockItem Is Nothing Then
                Exit Sub
            Else
                lockItem.LockCount -= 1
                If lockItem.LockCount = 0 Then
                    _locks.Remove(lockName)
                End If
            End If
        End SyncLock
        Monitor.Exit(lockItem)
    End Sub

 
        SyncLock (_locks.SyncRoot)
            ' Code...
        End SyncLock