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.