AppActivate(DEINE_TASK_ID)

SendKeys.Send("WIE_AUCH_IMMER")

 Sub GetProcesses(ByVal l As ListBox)
        Dim p As System.Diagnostics.Process
        Dim pp() As Process = Process.GetProcesses
        For Each p In pp
            If p.Id <> 0 Then ' Leerlaufprozess auslassen
                l.Items.Add("Prozess: " +  Chr(9) + p.ProcessName)
                l.Items.Add("Prozess Id: " + Chr(9) + p.Id.ToString)
                l.Items.Add("Prozess Title: " + Chr(9) + _
                  p.MainWindowTitle.ToString)
                l.Items.Add("Memory Size: " + Chr(9) + _
                p.PagedMemorySize.ToString)
                ' usw.
            End If
        Next
    End Sub