Salut
Sur la form principale qui s'ouvre au lancement de l'appli :
Private Sub Form_Load()
If App.PrevInstance = True Then 'détecte si l'appli est déjà lancée, si oui
MsgBox "Application déjà lancée !" 'affichage d' un message
End 'ferme l'appli
End If
J'utilise ce bout de code pour une appli qui tourne sous Win XP Pro, et ça marche très bien.
Bye