Código Visual Basic .NET que obtiene los procesos en ejecución (PID - Nombre)

    Private Sub bStart_Click(sender As Object, e As EventArgs) Handles bStart.Click
        Dim psList() As Process
        Try
            psList = Process.GetProcesses()
            For Each p As Process In psList
                Console.WriteLine(p.Id.ToString() + " " + p.ProcessName.ToString)
            Next p

        Catch ex As Exception
            Console.WriteLine(ex.Message)
        End Try
    End Sub