VB.Net + Form Mdi แก้ไม่ตกครับ ผมทำ Mdi Form ขึ้นมาแต่แก้ปัญหาตรงให้ form และ form เป็นได้ 1 ครั้งไม่เป็นเลย

pubilc  class FrmMain ()
 Private Sub MenuFrmOne_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuFrmOne.Click
        Dim CurrentForm As Form
'' ค้นหาฟอร์มนี้ว่ามีเปิดอยู่หรือไม่
        For Each CurrentForm In Me.MdiChildren
            If TypeOf CurrentForm Is FrmOne Then
                CurrentForm.MdiParent = Me
                CurrentForm.Show()
''ถ้ามีก็ฟ้อง Msgbox
                MessageBox.Show("!!!ฟอร์มนี้เปิดใช้งานอยู่แล้ว!!!", "ผมการตรวจสอบ", MessageBoxButtons.OK, MessageBoxIcon.Question)
               Exit Sub
            End If
        Next
''ถ้าไม่มีก็ให้โชว์ฟอร์มนี้
        Dim frmNew As New FrmOne
        frmNew .MdiParent = Me
        frmNew .Show()
    End Sub

Public Class Form1

    Private Sub OpenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpenToolStripMenuItem.Click
        Dim CurrentForm As Form2 '' ค้นหาฟอร์มนี้ว่ามีเปิดอยู่หรือไม่     
        For Each CurrentForm In Me.MdiChildren
            If TypeOf CurrentForm Is Form2 Then
                CurrentForm.MdiParent = Me
                CurrentForm.Show() ''ถ้ามีก็ฟ้อง Msgbox                
                MessageBox.Show("!!!ฟอร์มนี้เปิดใช้งานอยู่แล้ว!!!", "ผมการตรวจสอบ", MessageBoxButtons.OK, MessageBoxIcon.Question)
                Exit Sub
            End If
        Next ''ถ้าไม่มีก็ให้โชว์ฟอร์มนี้        
        Dim frmNew As New Form2
        frmNew.MdiParent = Me
        frmNew.Show()
    End Sub

    Private Sub CloseToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CloseToolStripMenuItem.Click
        Dim CurrentForm As Form3 '' ค้นหาฟอร์มนี้ว่ามีเปิดอยู่หรือไม่     
        For Each CurrentForm In Me.MdiChildren
            If TypeOf CurrentForm Is Form3 Then
                CurrentForm.MdiParent = Me
                CurrentForm.Show() ''ถ้ามีก็ฟ้อง Msgbox                
                MessageBox.Show("!!!ฟอร์มนี้เปิดใช้งานอยู่แล้ว!!!", "ผมการตรวจสอบ", MessageBoxButtons.OK, MessageBoxIcon.Question)
                Exit Sub
            End If
        Next ''ถ้าไม่มีก็ให้โชว์ฟอร์มนี้        
        Dim frmNew As New Form3
        frmNew.MdiParent = Me
        frmNew.Show()
    End Sub
End Class

Public Class Form1

Private Sub OpenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpenToolStripMenuItem.Click
Dim CurrentForm As Form ''**************************** แก้ตรงนี้ครับ
For Each CurrentForm In Me.MdiChildren
If TypeOf CurrentForm Is Form2 Then
CurrentForm.MdiParent = Me
CurrentForm.Show() ''ถ้ามีก็ฟ้อง Msgbox 
MessageBox.Show("!!!ฟอร์มนี้เปิดใช้งานอยู่แล้ว!!!", "ผมการตรวจสอบ", MessageBoxButtons.OK, MessageBoxIcon.Question)
Exit Sub
End If
Next ''ถ้าไม่มีก็ให้โชว์ฟอร์มนี้ 
Dim frmNew As New Form2
frmNew.MdiParent = Me
frmNew.Show()
End Sub

Private Sub CloseToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CloseToolStripMenuItem.Click
Dim CurrentForm As Form ''******************************** แก้ตรงนี้ครับ
For Each CurrentForm In Me.MdiChildren
If TypeOf CurrentForm Is Form3 Then
CurrentForm.MdiParent = Me
CurrentForm.Show() ''ถ้ามีก็ฟ้อง Msgbox 
MessageBox.Show("!!!ฟอร์มนี้เปิดใช้งานอยู่แล้ว!!!", "ผมการตรวจสอบ", MessageBoxButtons.OK, MessageBoxIcon.Question)
Exit Sub
End If
Next ''ถ้าไม่มีก็ให้โชว์ฟอร์มนี้ 
Dim frmNew As New Form3
frmNew.MdiParent = Me
frmNew.Show()
End Sub
End Class

My.Forms.Form2.MdiParent = Me
My.Forms.Form2.Show()