将 C# 语句体 lambda 转换为 VB

VS8 中的 VB 似乎不支持/转换带有语句主体的 lambda 表达式。我在 C# 应用程序中使用它们，但现在必须将其转换为 VB。

我正在动态创建一大堆控件，并且我希望能够动态地为它们提供事件处理程序。这样我就可以从数据库构建动态用户界面。在下面的代码中，我将创建一个表单和一个复选框，使复选框控制表单的可见性，向表单添加一些方法处理程序，然后将新创建的复选框添加到预先存在的表单/面板等。例如，表单的处理程序会影响复选框：

  // Inside some loop creating a lot of these forms and matching checkboxes
      Form frmTemp = frmTestPanels[i];  // New form in array
      CheckBox chkSelectPanel;          // New checkbox that selects this panel
      chkSelectPanel = new CheckBox();
      chkSelectPanel.Text = SomeName;   // Give checkbox a label
      chkSelectPanel.Click += (ss, ee) =>  // When clicked
      {
          label1.Text = SomeName;       // Update a label
          if (chkSelectPanel.Checked)   // Show or hide the form
          {
              frmTemp.Show();
          }
          else
          {
              frmTemp.Hide();
          }
      };

      frmTemp.VisibleChanged += (ss, ee) =>  // When form visibility changes
      {
          chkSelectPanel.Checked = frmTemp.Visible;  // Reflect change to checkbox
          ConfigurationFileChanged = true;   // Update config file later
      };

      frmTemp.FormClosing += (ss, ee) =>     // When the form closes
      {   // We're only pretending to close the form - it'll sit around until needed
          chkSelectPanel.Checked = false;    // Update the checkbox
          frmTemp.Hide();                    // Hide the form
          ee.Cancel = true;                  // Cancel the close
      };

      flpSelectGroup.Controls.Add(chkSelectPanel); // Add checkbox to flow layout panel
  // End of loop creating a bunch of these matching forms/checkboxes

当然，我遇到了转换错误：

VB 不支持带有语句体的匿名方法/lambda 表达式

我真的很喜欢动态创建所有内容，然后让对象自行处理的能力 - 我不需要添加任何特殊函数来确定哪个表单提供关闭事件，以便它可以搜索正确的复选框并更新复选框 - It Just Works (TM)。

不幸的是它需要转换为VB。

将 lambda/匿名语句体转换为可在 VB 中运行的内容的最佳方法是什么，特别是当需要创建其中许多语句体时？

等待.NET 4的最新版本，它将支持VB中的此类功能。看不到其他选择。

丑陋的替代品是：

1. 这可行，但您可以在函数中使用单个语句。

   AddHandler Me.Click, Function(o, e) MessageBox.Show("text")
   

2. 创建一些常规的 Sub Foo

   Public Sub Foo(ByVal o As Object, ByVal e As EventArgs)
        MessageBox.Show("text")
   End Sub
   

   and use AddHandler将其绑定到事件

   AddHandler Me.Click, AddressOf Foo