Private Sub NewToolStripMenuItem(ByVal sender As Object, ByVal e As EventArgs) _
    Handles NewToolStripMenuItem.Click
        Dim NeuFenster As New Form1()
 
        'Damit die Form nicht 2 mal aufgerufen werden kann
        'Wird im Formclosing-Event der Childform wieder True gesetzt
        NewToolStripMenuItem.Enabled = False
        NeuFenster.MdiParent = Me
        NeuFenster.Show()
    End Sub

Gru? aus dem Norden
manyki