Vb.net อยากได้ Code เมื่อมีไฟล์ Process xxx.exe รันขึ้นมา จะขึ้นMsgbox ว่า.... อะครับขอบคุณมาก

Dim ProcessName As Process() = Process.GetProcessesByName("xxx.exe")

System.Diagnostics.Process.Start("C:\MyApp.exe")

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Label1.Text = "Processing..."
        Timer1.Enabled = True

    End Sub
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Timer1.Enabled = False
        Dim ProcessName As Process() = Process.GetProcessesByName("firefox")
        If ProcessName.Length = 1 Then


            Label1.Text = "Ready..."
            Label1.ForeColor = Color.Green
        End If
    End Sub
End Class