Timer program açıldığında aktif olmalı.

Değişkenler: (Global olarak tanımlanmalı - Event içerisinde değil)

Dim flag = False
Dim ProcessId As String
Dim firstProcessId As String


Timer Kodları:

For Each p As Process In Process.GetProcesses

If String.Compare(p.ProcessName, "notepad", True) = 0 And flag = False Then
flag = True
firstProcessId = p.Id
End If

If String.Compare(p.ProcessName, "notepad", True) = 0 And flag = True And Not p.Id = firstProcessId Then
TextBox1.Text = p.Id
Timer1.Stop()
End If

Next


Kolay gelsin.