Loading progress bar

[Crash]

How can I create a loading bar you see in software, that consisted of a rectangle and a green block moving. Something like when you're copying some file with Windows Vista, when it's initializing, there's a green block moving and moving and moving.

How can I do that?

This is my current script:

#cs ----------------------------------------------------------------------------

 First Run: Fungicide 2010

#ce ----------------------------------------------------------------------------
#include <GUIConstantsEx.au3>
MsgBox(64, "Thanks!", "Welcome to Fungicide 2010."&@LF&"Thank you for choosing our software!")
MsgBox(64, "Installation", "We're going to setup your Fungicide so you can"&@LF&"enjoy optimum protection for your computer.")
GUICreate("Installation", 500, 180)
GUISetState()
$font=GUICtrlCreateLabel("Please wait while we configure Fungicide for you.", 50, 50, 400)
GUICtrlSetFont($font, 12, 600)
GUICtrlSetBkColor($font, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlCreateProgress(50, 100, 390)
GUICtrlSetData(-1, 100)
;Setup all below
While 1
    
WEnd

But to make it full seems so fake. I needed the moving one. Can you help me?

[Melba23]

Crash,

I believe this is what you are looking for - the trick is done by using the MARQUEE style for the progress bar:

#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <SendMessage.au3>

$hGUI = GUICreate("Test", 500, 500)

GUICtrlCreateProgress(10, 10, 200, 20, $PBS_MARQUEE)
_SendMessage(GUICtrlGetHandle(-1), $PBM_SETMARQUEE, True, 50)

GUISetState()

While 1

    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            Exit
    EndSwitch

WEnd

The final parameter of the message is the update time in ms.

M23