Dim p As Process = Process.GetCurrentProcess
                            prozesse = vbCrLf & p.Id & ":" & p.ProcessName
                            prozesse &= vbCrLf & "Anzahl Threads: " & _
                              p.Threads.Count
                            For Each t As ProcessThread In p.Threads
                                prozesse &= vbCrLf & " - " & t.Id & " : " & _
                                  t.ThreadState & " : " & t.StartTime _
                                  '2=Running, 5=Waiting, 4=Terminated
                            Next