Определить порядковый номер экземпляра запущенной программы - Visual Basic .NET

Формулировка задачи:

Мы запускаем n-ую копию одного и того же приложения Windows Form на одном компьютере. Как из кода программы определить номер запускаемой копии (n).

Решение задачи: «Определить порядковый номер экземпляра запущенной программы»

textual
                            Листинг программы 
                        

                            Dim Proc() As Process
        'Определение полного имени текущего процесса.
        Dim ModuleName, ProcName As String
        ModuleName = Process.GetCurrentProcess.MainModule.ModuleName
        ProcName = System.IO.Path.GetFileNameWithoutExtension(ModuleName)
        'Находим все процессы с данным именем
        Proc = Process.GetProcessesByName(ProcName)
        'Если процесса такого нет то запускаем программу
        'Если процесс есть уже с таким именем то закрываем программу
        'Если вы хотите разрешить запуск 2 экзэмпляра приложения то измените Proc.Length > 1 на Proc.Length > 2
        n = Proc.Length
        Me.Text = "Всего запущено " + n.ToString + " экземпляров приложения"
        'If Proc.Length > 1 Then
        '    'Если есть такой процесс то
        '    'End 'закрываем прогу
        'End If
    End Sub
                        