VB.net如何判断N个程序进程呢？

[dtlqf]

#Region "功能代码"

    Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'Dim localByName As Process() = Process.GetProcessesByName("notepad") '获取进程名
        '  For i As Integer = 0 To UBound(localByName)
        '      MsgBox(localByName(i).Id)  '以消息弹出PID
        '   MsgBox(localByName(i).MainModule.FileName) '以消息弹出程序路径
        'Next
        If System.Diagnostics.Process.GetProcessesByName("Game").Length > 0 Then
            Me.GameZT.Text = "程序正在运行!"
            'MsgBox("程序进程存在Ok!")
        Else
            Me.GameZT.Text = "程序未运行!"
            'MsgBox("On Shit!程序进程不存在.")
        End If
    End Sub
#End Region

我想检测下进程是否存在 如果存在 就在GameZT标签上显示 存在，不存在则显示不存在，但是问题是 我不想用按钮1（即Button1）来检测，而且如果进程关闭的话就显示程序未运行，但在次运行Game程序时则自动再次显示程序正在运行。
该如何实现呢？ Time 控件有试过，但是不知道问题出在哪里。

[bdmh]

在程序入口的地方写，c#中是program.cs的Main函数中

[dtlqf]

[Quote=引用 1 楼 的回复:]

在程序入口的地方写，c#中是program.cs的Main函数中
[/Quote]

如何去判断N个程序呢？