Bloquear subproceso

Private sc As New Object
SyncLock sc
End SyncLock

Private captura_lock As New Object
While True
    SyncLock captura_lock
      MsgBox("hola!")
    End SyncLock
End While