Namespace My ' Für MyApplication sind folgende Ereignisse verfügbar: ' ' Startup: Wird beim Starten der Anwendung noch vor dem Erstellen des Startformulars ausgelöst. ' Shutdown: Wird nach dem Schließen aller Anwendungsformulare ausgelöst. Dieses Ereignis wird nicht ausgelöst, wenn die Anwendung nicht normal beendet wird. ' UnhandledException: Wird ausgelöst, wenn in der Anwendung eine unbehandelte Ausnahme auftritt. ' StartupNextInstance: Wird beim Starten einer Einzelinstanzanwendung ausgelöst, wenn diese bereits aktiv ist. ' NetworkAvailabilityChanged: Wird beim Herstellen oder Trennen der Netzwerkverbindung ausgelöst. ''' ''' Release 4.03 Instanzenhandling ''' ''' 'Partial Friend Class MyApplication ' Private Sub MyApplication_StartupNextInstance(ByVal sender As Object, ByVal e As Microsoft.VisualBasic.ApplicationServices.StartupNextInstanceEventArgs) Handles Me.StartupNextInstance ' e.BringToForeground = True ' Dim arg As String = "" ' For Each s As String In e.CommandLine ' If arg <> "" Then arg = arg + " " ' arg = arg + s ' Next ' Dim strargs() As String = arg.Split(" ") ' EDOKAMain.HandleCommand(strargs, True) ' End Sub 'End Class End Namespace