使用内联委托将C＃代码转换为vb.net

Question

I need to convert this code to vb.net

public IDisposable WriteLock()
{
    EnterWriteLock();
    return new LockDisposer(delegate() { ExitWriteLock(); });
}

This is what I got with the online converters

Public Function WriteLock() As IDisposable
    EnterWriteLock()
    Return New LockDisposer(Sub() ExitWriteLock()) <-- Error Line
End Function

I am using .net 2.0

Answer 1

Public Function WriteLock() As IDisposable
     EnterWriteLock()
     Return New LockDisposer(AddressOf ExitWriteLock)
End Function

Answer 2

Your code is missing end sub of the delegate:

Public Function WriteLock() As IDisposable
    Return New LockDisposer(Sub()
                                ExitWriteLock()
                            End Sub) 
End Function

Live Demo