Как отловить запуск стороннего процесса?

Private Sub ProcEx() Handles Pr.Exited

Public Class Form1
    Public Class ListDirective
        Event ChangedItems(sender As Object, e As ItemEventArgs)
        Private MainList As New Collection
        Private ListKey As New Collection
        Function Add(key As String, item As Object)
            MainList.Add(item, key)
            ListKey.Add(key, key)
            RaiseEvent ChangedItems(Me, New ItemEventArgs(ItemEventArgs.Actions.Add, key, item))
    #End Function
        Function Remove(key As String)
            Dim oldKey = key
            Dim oldItem = MainList(key)
            MainList.Remove(key)
            ListKey.Remove(key)
            RaiseEvent ChangedItems(Me, New ItemEventArgs(ItemEventArgs.Actions.Remove, oldKey, oldItem))
    #End Function
        Function Clear()
            MainList.Clear()
            RaiseEvent ChangedItems(Me, New ItemEventArgs(ItemEventArgs.Actions.Clear, "", Nothing))
    #End Function
        Function IsItem(key As String) As Boolean
            Try
                Dim value = MainList(key)
                GC.Collect()
                Return True
            Catch ex As Exception
                Return False
            End Try
    #End Function
        Function GetItem(key As String) As Object
            If Not IsItem(key) Then Return Nothing : Exit Function
            Return MainList(key)
        End Function
        ReadOnly Property Keys As String()
            Get
                Dim result As String() = New String(ListKey.Count - 1) {}
                Dim i As Integer = 0
                For Each item In ListKey
                    result(i) = item : i += 1
                Next
                Return result
            End Get
        End Property
        ReadOnly Property Items As String()
            Get
                Dim result As String() = New String(MainList.Count - 1) {}
                Dim i As Integer = 0
                For Each item In MainList
                    result(i) = item : i += 1
                Next
                Return result
            End Get
        End Property
        ReadOnly Property Count() As Integer
            Get
                Return MainList.Count
            End Get
        End Property
        Public Class ItemEventArgs
            Inherits EventArgs
            Private DefaultAction As Actions = Actions.Add
            Private DefaultKey As String = ""
            Private DefaultItem As Object
            Enum Actions
                Clear = -1
                Remove = 0
                Add = 1
            End Enum
 
            Sub New(action As Actions, key As String, item As Object)
                DefaultAction = action
                DefaultKey = key
                DefaultItem = item
            End Sub
 
            Public ReadOnly Property Action As Actions
                Get
                    Return DefaultAction
                End Get
            End Property
 
            Public ReadOnly Property Key As String
                Get
                    Return DefaultKey
                End Get
            End Property
 
            Public ReadOnly Property Item As Object
                Get
                    Return DefaultItem
                End Get
            End Property
        End Class
    End Class
 
 
    WithEvents IList As New ListDirective
    Dim IsStartup = True
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        For Each app In Process.GetProcesses
            If Not app.MainWindowTitle = "" Then
                IList.Add(app.Id, app.MainWindowTitle)
            End If
        Next
 
        Dim timerGlobal As New Timer
        AddHandler timerGlobal.Tick, Sub()
                                         For Each key In IList.Keys
                                             Try
                                                 Dim value = Process.GetProcessById(key)
                                             Catch ex As Exception
                                                 IList.Remove(key)
                                             End Try
 
 
 
                                         Next
 
                                         For Each app In Process.GetProcesses
                                             If Not app.MainWindowTitle = "" Then
                                                 If Not IList.IsItem(app.Id) Then IList.Add(app.Id, app.MainWindowTitle)
                                             End If
                                         Next
                                     End Sub
        timerGlobal.Interval = 100
        timerGlobal.Start()
        IsStartup = False
    End Sub
 
    Private Sub IList_ChangedItems(sender As Object, e As ListDirective.ItemEventArgs) Handles IList.ChangedItems
        If e.Action = ListDirective.ItemEventArgs.Actions.Add Then
            If IsStartup Then Exit Sub
            MsgBox("Зпущено приложение " & e.Item)
        ElseIf e.Action = ListDirective.ItemEventArgs.Actions.Remove Then
            MsgBox("Приложение " & e.Item & " было закрыто")
        End If
    End Sub
End Class