'in module
Public Declare Function FindWindow Lib "User32" Alias "FindWindowA" (lpClassName As Any, ByVal lpWindowName As String) As Long

'in form
hApp = FindWindow(ByVal 0&, "Titolo")
If hApp = 0 Then
rets = Shell("c:\free.exe")
End If


NB il campo dove ho scritto "Titolo" deve contenere esattamente quello che viene scritto nella ControlBar (quella blu in alto in ogni form)
Ad Esempio se esegui la calcolatrice avrà come Caption del form il valore "Calcolatrice"

Se viene trovata una finestra con la caption che hai specificato la funzione (API) ti restituisce un Long con l'Handle dell'applicazione
ovviamente se restituisce 0 significa che non ha trovato nessuna form ( anche invisibile ) con quella Caption.