Shared resources should not be used for locking as it increases the chance of deadlocks. Any other thread could acquire (or attempt to acquire) the same lock for another unrelated purpose.
Instead, a dedicated object instance should be used for each shared resource, to avoid deadlocks or lock contention.
The following objects are considered as shared resources:
Me Type object
Public Sub MyLockingMethod()
SyncLock Me 'Noncompliant
' ...
End SyncLock
End Sub
Class MyClass
Dim lockObj As New Object()
Public Sub MyLockingMethod()
SyncLock lockObj
' ...
End SyncLock
End Sub
End Class