If pgr.Width <= taille.Width Then '=> SI la largeur de "prg" est plus petite ou égale à la largeur de "taille" ALORS pgr.Width = pgr.Width + 50 '=> Ajoute 50 à la largeur de "pgr" Else '=> SINON Timer1.Interval = 0 '=> met l'interval du Timer à zéro, donc hors service ! Form3.Show '=> Charge en mémoire la Form3 et l'affiche Unload Me '=> décharge la Form où ce code est appelé