Ne pas r-ouvrir l'application, si dj ouverte

Bonjour,
Comment eviter de pouvoir r-ouvrir l’application si celle-ci est dej ouverte. .
Et simplment, afficher la fenetre de l’application au lieu de la relancer…

Je suppose que c’est sous Windows… Un Mutex devrait faire l’affaire.
Quelque chose du genre:

Dim m As New Mutex("foo") If Not m.TryEnter Then MsgBox "Cette application est dj ouverte" Quit End If
Dans l’vnement Open de l’application.
Ce code est juste un exemple chaud, sans avoir t test…

Comme c’est inutile avec Mac OS, ne pas oublier de mettre a dans un #If TargetWindows Then#EndIf.