'Hauptformular der neuen Anwendung:
 
Public Class frmApp
 
    Inherits System.Windows.Forms.Form
 
    '2 Anwendungsformulare
    'Jedes Formular kann 1x gestartet werden 
    Dim App1 As New frmApp1  'frmApp1 ist die Name-Eigenschaft eines 
    ' Anwendungsformulars
    Dim App2 As New frmApp2
 
'=====================================================
Region " Vom Windows Form Designer generierter Code "
'=====================================================
 
    Private Sub btnStartApp1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles btnStartApp1.Click
 
        'untergeordnetes Formular anzeigen  
        App1.Show()
        'Aktivieren
        App1.Activate()
 
    End Sub
 
 
    Private Sub btnStarteApp2_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles btnStarteApp2.Click
 
        'untergeordnetes Formular anzeigen  
        App2.Show()
        'Aktivieren
        App2.Activate()
 
    End Sub
 
End Class
 
 
 
'in jedes untergeordnete Formular einzufügende Ereignisroutine:
 
    Private Sub frmApp1_Closing(ByVal sender As Object, ByVal e As _
      System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
 
        If sender.Equals(Me) Then
            'Schließen des Formulars aus sich heraus unterbinden
            e.Cancel = True
            'statt dessen nur verstecken
            Me.Hide()
        End If
 
    End Sub