SyncLock vb.net

[PaoloMontero]

Ciao a tutti , qualcuno sa darmi una spiegazione logica perché nel seguente esempio il blocco non avviene?

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles  Button1.Click
        Dim blocca As New Object()
        SyncLock blocca
                SyncLock blocca
                        MsgBox("ciao")
                End SyncLock
        End SyncLock
End Sub

Questo è un esempio forzato, siccome facendo un programma più complesso , mi sono reso conto che il blocco non funzionava e ho cercato di riprodurlo volontariamete.
Avete idee? come posso fare ?