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 ein 
    ' Ausnahmefehler auftritt.
    ' StartupNextInstance: Wird beim Starten einer Einzelinstanzanwendung 
    ' ausgelöst, wenn diese bereits aktiv ist. 
    ' NetworkAvailabilityChanged: Wird beim Herstellen oder Trennen der 
    ' Netzwerkverbindung ausgelöst.
 
 
    Partial Friend Class MyApplication
 
        ''' <summary>
        ''' Dieses Event wird immer dann aufgerufen, wenn ein Fehler auftritt, 
        ' der nicht behandelt wurde.
        ''' Dann wird ein Email mit den nötigen Daten erstellt und verschickt.
        ''' </summary>
        ''' <param name="sender"></param>
        ''' <param name="e"></param>
        ''' <remarks></remarks>
        Private Sub MyApplication_UnhandledException(ByVal sender As Object, _
          ByVal e As _
          Microsoft.VisualBasic.ApplicationServices.UnhandledExceptionEventArgs_
          ) Handles Me.UnhandledException
            My.Application.Log.WriteException(e.Exception, _
            TraceEventType.Critical, "Unhandled Exception.")
 
            Dim st As New StackTrace(e.Exception, True)
            Dim frames As StackFrame() = st.GetFrames()
            Dim TS As String = "UnhandledException:" & vbCrLf & _
              e.Exception.Message & vbCrLf & vbCrLf & "Stack Trace:" & vbCrLf
 
            ' Iterate over the frames extracting the information you need
            For Each frame As StackFrame In frames
                TS += frame.GetFileName() & " : " & frame.GetMethod().Name & " (" & _
                  "" & frame.GetFileLineNumber() & "," & _
                  frame.GetFileColumnNumber() & ")" & vbCrLf
            Next
 
            TS += vbCrLf & e.Exception.StackTrace.ToString
 
            'Sendmail("xxx@xxx.de", TS)
            End
        End Sub
    End Class
End Namespace

        Parallel.Invoke(Sub()
                            Run1()
                        End Sub,
                            Sub()
                                run2()
                        End Sub,
                            Sub()
                                run3()
                            End Sub)

Joachim