C'est un bon début mais totalement inexploitable en production...

Merci pour vos commentaires.

Pour JMBOURREAU, en simplifiant le code, tu peux placer ce progressbar où tu veux. Il faut simplement mettre les lignes Call SetPictureBoxToStatusBar en commentaire ;-)

C'est vrai que tel quel le code n'est pas super génial mais il fonctionne !

Private Declare Function GetActiveWindow Lib "user32" () As Long
...
...
if (MyForm.hWnd = GetActiveWindow) then
   ' Ma fenêtre est active
else
   ' ou elle ne l'est pas
end if

GrosLolo.

Cette méthode ne fonctionne pas :-(
Même si la fenêtre est au premier plan, j'ai un retour à True.

Exactement ce que je cherchais....
Et en plus ça à l'air de fonctionner correctement.
10/10 sans problème.