如何从VB .NET中的单独项目中对私有函数进行单元测试？

Imports System.Reflection
Imports NUnit.Framework

<TestFixture>
Public Class PrivateMethodTest

    <Test>
    Public Sub TestPrivateMethod()
        Dim obj As New MyClass()
        Dim methodInfo As MethodInfo = GetType(MyClass).GetMethod("MyPrivateMethod", BindingFlags.NonPublic Or BindingFlags.Instance)

        Dim result As Object = methodInfo.Invoke(obj, New Object() {10})

        Assert.AreEqual(20, result)
    End Sub

End Class

Public Class MyClass

    Private Function MyPrivateMethod(ByVal value As Integer) As Integer
        Return value * 2
    End Function

End Class