Private Sub OpenForm2ToolStripMenuItem_Click(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles OpenForm2ToolStripMenuItem.Click
        myOpn(New Form2)
    End Sub
 
    Private Sub myOpn(ByVal myfrm As Form)
        myfrm.MdiParent = Me
        AddHandler myfrm.FormClosing, AddressOf Child_FormClosing
        myfrm.Show()
    End Sub
 
    Private Sub Child_FormClosing(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.FormClosingEventArgs)
        Debug.WriteLine("MdiChild.FormClosing() " & CType(sender, Form).Name & _
        " " & e.Cancel.ToString())
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist