用Rhino.Mocks在VB.NET2008的单元测试中使用Lambda

我正在尝试创建一个单元测试，类似于我在C#中所做的单元测试，但我正在vb中与lambdas进行斗争

基本上，我试图模拟一个类，然后创建一个存根并返回。在C#中，我会做类似的事情

MockedPersonRepository
     .Stub(x => x.Find(id))
     .Return(person)

但在VisualBasic中，我尝试做类似的事情，但无法计算出语法

   MockedPersonRepository.Stub(Function... argh!!!

任何关于如何复制上述内容的建议都将不胜感激

亲切问候,，

---

Dom

我通常展示的一个简单示例（我也是一名VB开发人员）如下所示：（在VB中，出于某种奇怪的原因，您需要将其拉到另一个不返回任何内容的函数中）

---

你喜欢这个工作吗

MockedPersonRepository_
    .Stub(Function(x) x.Find(id))_
    .[Return](person)

Dim StubUserObject As New User(1, "9999", "jdoe", "John", "Doe", 1)

    UserService.Stub(Function(x) x.GetUserByID(1)).[Return](StubUserObject)

MockedPersonRepository_
    .Stub(Function(x) x.Find(id))_
    .[Return](person)