Why does the Process event - Exited close by its own?

[Josh Argent]

I'm getting some very strange errors with my code and I'm not sure what's causing it. :( Basically, I'm trying to make a program which will list all the running programs as well as getting the icon from it. I've got it working prety well but I need it to update when ever a program is closed. So I looked into it a bit and found the I could use p.Exited event. I tried it out (in the bellow code) and it sort of worked however on a MessageBox.Show () works??? I try to do anything else it just closes the form down? why does this happen? am i doing anything wrong?

        bar.Controls.Clear()
        For Each p As Process In Process.GetProcesses()
            Dim procFile As String
            Try
                procFile = p.Modules(0).FileName
            Catch generatedExceptionName As Win32Exception
                procFile = "n/a"
            End Try
            Dim name As String = p.ToString()
 
            name = name.Replace("System.Diagnostics.Process (", "")
            name = name.Replace(")", "")
 
 
            If (procFile = "n/a" Or name = "explorer") Then
 
            Else
                If (p.MainWindowHandle.ToInt32() > 0) Then
                    Dim icon As Button = New Button
 
                    icon.Width = 153
                    icon.Height = 41
                    icon.Text = name
                    icon.BackgroundImageLayout = ImageLayout.Stretch
                   Dim ProgIcon As Icon = System.Drawing.Icon.ExtractAssociatedIcon(procFile)
                     icon.Image = ProgIcon.ToBitmap()
                    Me.ToolTip1.SetToolTip(icon, name)
                    p.EnableRaisingEvents = True
                    AddHandler p.Exited, AddressOf ProgramClosed                    
bar.Controls.Add(icon)
                End If
            End If