HotKeySet("{ESC}", "endscript") Global $ProgressBarTitle = " Installation : étape 1 ..." AdlibRegister("_TheProGressBar", 50) While 1 Sleep(1500) ; Changement de titre $ProgressBarTitle = " Installation : étape 2 ..." Sleep(2000) ; Changement de titre $ProgressBarTitle = " Installation : étape 3 ..." Sleep(2000) ; Changement de titre $ProgressBarTitle = " Installation : étape 4 ..." Sleep(7000) ; Changement de titre $ProgressBarTitle = " Installation : Terminée ..." Sleep(3000) $ProgressBarTitle = "" Sleep(2000) MsgBox(0, "Fin", "Script terminé ... Sortie") Exit WEnd ; You must declare $ProgressBarTitle as Global and use it to update the title. ; This function must be called by : AdlibRegister("_TheProGressBar", 50) ; Where 50 is the speed of the progression. Func _TheProGressBar() If Not WinExists("XxMyProGressBarxX") Then Global $iStepDataBar = 5 Global $iColorBar = 0x000500 ; Color of bargraph : Blue = 0x000005, Green = 0x000500, Red = 0x050000 Global $iDataBar = 0 Global $iNewColor, $iBackColor Global $GuiBar = GUICreate ("XxMyProGressBarxX", 250, 44, -1, -1, 0x80000000, 0x00000109) ; Common colors for background : Gray = 0xECE9D8, Black = 0x000000, White = 0XFFFFFF GUISetBkColor(0x000000, $GuiBar) ; Background color of GUI Global $Lbl = GUICtrlCreateLabel("", 24, -1, 250, 24) GUICtrlSetColor($Lbl, 0xECE9D8) ; The Label Title color GUICtrlSetFont($Lbl, "12", "400", "", "Courrier New") GUICtrlCreateGraphic(0, 23, 250, 20) ; The Frame bargraph GUICtrlSetColor(-1, 0x007F00) ; The Frame bargraph color GuiSetState(@SW_SHOW) EndIf If IsDeclared("ProgressBarTitle") Then If $ProgressBarTitle <> "" Then GUICtrlSetData($Lbl, $ProgressBarTitle) Else GUIDelete($GuiBar) AdlibUnRegister("_TheProGressBar") EndIf Else Global $ProgressBarTitle = " Installation en cours ..." EndIf ; SliderRight If $iStepDataBar > 0 Then $iDataBar += $iStepDataBar If $iDataBar < 245 Then $iNewColor += $iColorBar GUICtrlCreateLabel( "", $iDataBar, 25, 4,16) GUICtrlSetBkColor(-1, $iNewColor) Else $iDataBar = 245 $iStepDataBar = -5 $iNewColor = 0 $backcolor = 0 EndIf ; SliderLeft Else $iDataBar += $iStepDataBar If $iDataBar > 0 Then $iBackColor += $iColorBar GUICtrlCreateLabel( "", $iDataBar, 25, 4,16) GUICtrlSetBkColor(-1, $iBackColor) Else $iDataBar = 0 $iStepDataBar = 5 $iNewColor = 0 $iBackColor = 0 EndIf EndIf EndFunc Func endscript() Exit EndFunc