With Kette_G
            .MdiParent = Me
            .Text = "Kette G"
            .Show()
        End With
With Kette_A
            .MdiParent = Me
            .Text = "Kette A"
            .Show()
        End With
 End Sub
 
End Class

Private Sub frmSchrittkette_Closing(ByVal sender As Object, ByVal e As _
  System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
        frmSKEditorS.Fensterdarstellung()
        'Beim Schliessen der Kette die Close-Methode abfangen und mit Hide 
        ' ausblenden
        e.Cancel = True
        Me.Hide()
    End Sub