Option Explicit On 
Option Strict On
 
Module Main1
 
    <STAThread()> Public Sub Main()
 
        '###############Prüfen, ob Anwendung bereits gestartet 
        ' ist###################
        If System.Diagnostics.Process.GetProcessesByName( _
          System.Reflection.Assembly.GetExecutingAssembly.GetName.Name).Length _
          > 1 Then
            MsgBox("Achtung!" & Chr(13) & _
              "Es läuft bereits eine Instanz dieser Anwendung." & _
              vbCrLf & vbCrLf & _
              "Ein mehrfaches gleichzeitiges Ausführen ist " & _
              "nicht möglich!")
 
            ' neugestartete Anwendung wird bei Mehrfachstart beendet
            End
        End If
        '######################################################################
        ' ###
 
 
        Dim frmSplash As New frmSplash 'Initialisierung das Splashscreens als 
        ' frmSplash
        Dim frmHauptform As New frmHauptform 'Initialisierung der Hauptform als 
        ' frmHauptform
 
        frmSplash.Show() 'Anzeigen des Splashscreens ... jetzt werden die 
        ' Anweisungen des Splash.vb ausgeführt
        frmSplash.Dispose() 'frmSplash entsorgen
        frmHauptform.Show() 'Das Hauptprogramm wird in der Hauptform gestartet
        Application.Run()
        frmHauptform.Dispose() 'Hauptform wird entsorgt
        End
 
    End Sub
 
 
 
End Module

Me.Close()

Private Sub cmdBeenden_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles cmdBeenden.Click
        Me.Close()'Hauptfenster wird beendet, jedoch noch nicht entsorgt, das 
        ' passiert erst im Main1.vb
    End Sub