Dim processList() As Process
        processList = Process.GetProcesses
 
        Dim Processor0 As New System.IntPtr(1)
        Dim Processor1 As New System.IntPtr(2)
        Dim Both As New System.IntPtr(3)
 
 
        For Each item As Process In processList
            ListBox1.Items.Add(item.ProcessName)
            If item.ProcessName = "RealTime" Then 'Processname der eigenen 
            ' Anwendung
                item.ProcessorAffinity = Processor0
                item.PriorityClass = ProcessPriorityClass.RealTime
            End If
 
            If item.ProcessName = "taskmgr" Then
                item.ProcessorAffinity = Processor1
                item.PriorityClass = ProcessPriorityClass.Idle
            End If
        Next