[VBA] Lanciare o terminare un programma già in esecuzione

[robi64]

Dim pid
Sub OpenApplication()
    If pid = 0 Then 'Application not already open
        pid = Shell("notepad.exe", vbNormalFocus)
    Else 
        AppActivate (pid)
    End If
End Sub

oppure seguendo il codice da te postato

Sub tofront()
For Each obj In GetObject("winmgmts:").ExecQuery("SELECT * FROM Win32_Process WHERE Name='notepad.exe'")
AppActivate (obj.ID)
Next
End Sub

In definitiva dovrei interrogare il sistema se c'è una certa applicazione, magari con certi parametri di lancio, già in run e se si ne faccio l'Appactivate per averla in foreground. Se non c'è devo lanciarla con i parametri necessari
Ciao