１．ローカルコンピューター上で実行しているすべてのプロセスを取得
　
Private Sub Button1_Click(ByVal sender As System.Object, _
                            ByVal e As System.EventArgs) Handles Button1.Click
'ローカル コンピューター上で実行しているすべてのプロセスを取得
    Dim localProcAll As Process() = Process.GetProcesses()
    Dim p As Process
    For Each p In localProcAll
        '取得したプロセスの プロセスID・プロセス名・ウィンドウのキャプション名を表示
        Console.WriteLine("{0} / {1} : {2}", p.Id, p.ProcessName, p.MainWindowTitle)
        'その中から指定のアプリを探す場合
        If p.ProcessName = "notepad" Then
            MessageBox.Show("メモ帳が起動しています")
        End If
    Next
'結果の一部
    '  612 / smss : 
    '  3816 / 052 : ローカル コンピューター上で実行しているプロセスを取得(052)
    '  1104 / svchost : 
End Sub