Imports System

Imports System.Diagnostics

Imports System.ComponentModel

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim p As Process() = Process.GetProcesses()

Dim I As Integer

TextBox1.Text = "Numero de procesos= " & p.Length & vbCrLf

For I = 0 To p.Length - 1

TextBox1.Text &= I & "=" & p(I).ProcessName & " | " & p(I).Id.ToString & " | " & p(I).MainWindowTitle & " | "

Try

Catch ex As Exception

'Existe una excepcion en p(I).MainModule.FileName para "ldle"

End Try

Next I

End Sub

End Class