AppActivate and FindWindow

[dunfiddlin]

Dim p As Process() = Process.GetProcessesByName("notepad")
        If p.Length = 0 Then
            Process.Start("notepad.exe")
        End If