Dim WithEvents f2 As Form2
 
    Private Sub Menu_Start_Form2_Click(ByVal sender As System.Object, ByVal e _
      As System.EventArgs) Handles Menu_Start_Form2.Click
        For Each f As Form In Me.MdiChildren
            f.Hide()
        Next
        If Not f2 Is Nothing Then
            f2.Show()
            Return
        End If
        f2 = New Form2
        f2.MdiParent = Me
        f2.Show()
    End Sub
 
    Private Sub f2_Closed(ByVal sender As Object, ByVal e As System.EventArgs) _
      Handles f2.Closed
        f2 = Nothing
    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