这段代码有人可以翻译成VB.NET吗？

Question

网上的在线转换工具在翻译这段时全部都转换失败，可能要人工才搞定了，高人请出手翻译成VB.NET，谢谢        private void fORM2ToolStripMenuItem_Click(object sender, EventArgs e)
        {
            Form show = Find_ChildForm("Form2");
            if (show == null)
            {
                show = new Form2();
                show.Name = "Form2";
                InsertMdi(show.Name);
                show.Closed += delegate(Object _sender, EventArgs _e) { tssAdd.DropDownItems.Remove(Get_Item((_sender as Form).Name)); };
                show.WindowState = FormWindowState.Maximized;
                show.MdiParent = this;
                show.Show();
            }
            else
            {
                ActivateMdiChild(show);
            }
            
        }

Answer 1

Private Sub fORM2ToolStripMenuItem_Click(byval sender as object, byval e as EventArgs)
//{
    //Form show = Find_ChildForm("Form2");
    dim show as new Form("Form2")
    //if (show == null)
    If show is nothing then 
    //{
        show = new Form2()//;
        show.Name = "Form2"//;
        InsertMdi(show.Name)//;
        AddHandler(show.Closed,Sub(Object _sender, EventArgs _e) tssAdd.DropDownItems.Remove(Get_Item((_sender as Form).Name))))
        show.WindowState = FormWindowState.Maximized//;
        show.MdiParent = Me//this;
        show.Show()//;
    //}
    Else
    //{
        ActivateMdiChild(show)//;
    //}
    End If  
//}
End Sub

Answer 2

我没编译，只是原文翻译。InsertMdi方法不直到在哪。只是和你c#效果一样。如果你c#的能运行。那我给你的也能运行。诶。授人鱼一次。罪过罪过。

Answer 3

Private Sub fORM2ToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) 
    Dim show As Form = Find_ChildForm("Form2") 
    If show Is Nothing Then 
        show = New Form2() 
        show.Name = "Form2" 
        InsertMdi(show.Name) 
        show.Closed += Function(ByVal _sender As [Object], ByVal _e As EventArgs) Do 
            tssAdd.DropDownItems.Remove(Get_Item(TryCast(_sender, Form).Name)) 
        End Function 
        show.WindowState = FormWindowState.Maximized 
        show.MdiParent = Me 
        show.Show() 
    Else 
        ActivateMdiChild(show) 
        
    End If 
End Sub