Static Sub Lock ( Object As Object )
Locks an object.
A locked object does not raise any event.
Unlock
IsLocked