Mdi From เปิดได้ฟอร์มเดียว ทำอย่างไร (ลองใช้ showdialog ก็ไม่ได้)

    Public Sub ShowChildFrom(ByVal f As Form)
        If f.Visible = True Then
            f.Hide()
            f.Show()
        Else
            f.MdiParent = Me
            f.Dock = DockStyle.Fill
            f.Show()
        End If
        btn_open()
    End Sub

ShowChildFrom(ชื่อฟอร์ม)