Vb.net Program açılmasını Koşula Bağlama

Notepad.exe Açık değilse sizin program da açılmayacak. Notepad Açık ve arka planda çalışıyorsa Sizin Açmaya çalıştığınız uygulama da açılacak... Bu örneği her program için uygulamak mümkün...

Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load System.Diagnostics.Process.GetProcesses() ListBox1.Items.Clear() For Each calisanProgramlar As Process In Process.GetProcesses() Dim i As Integer i += 1 ListBox1.Items.Add(calisanProgramlar.ProcessName) If calisanProgramlar.ProcessName = "notepad" Then MessageBox.Show(calisanProgramlar.ProcessName & " AÇIK VE " & i & " .SIRADA YÜKLÜ") Me.ListBox1.SetSelected(i - 1, True) Me.Show() Exit Sub End If Next MessageBox.Show("notepad Açık değil" & " Program kapanacak") Me.Close() End Sub End Class