Scrolling title

[phantom]

Hello, I have been trying to make a udf for scrolling title text it works if you use on event mode for your gui but in a msg loop unless u click the button before the func starts again it doesn't work. It would be great if someone could help me with this.

heres the code:

#include <String.au3>

GUICreate ("Test",200,100)
$close = GUICtrlCreateButton ("Close",80,60,40,30)
GUISetState ()

While 1
$msg = GUIGetMsg()
Switch $msg 
    Case $close
        Exit
EndSwitch
ScrollingTitle("Test",200) ;call func in the loop so it keeps scrolling
Sleep (10) ;if the sleep time is to big it wont scroll properly
WEnd

Func ScrollingTitle ($title,$width,$s_time = 100)
$nwidth = Int ($width/5)
For $i = 1 To $nwidth
WinSetTitle (_StringRepeat (" ",$i-1) & $title,"",_StringRepeat (" ",$i) & $title)
Sleep ($s_time)
Next
WinSetTitle (_StringRepeat (" ",$nwidth) & $title,"",$title)
EndFunc

Thanks in advance

[The Kandie Man]

Like this:

GUICreate ("Test",200,100)
$close = GUICtrlCreateButton ("Close",80,60,40,30)
GUISetState ()

Global $title = "Test"
Global $width = 200
Global $nwidth = Int ($width/5)
Global $i_TitleCounter = 1
Dim $i_TitleTimeStamp = TimerInit()
Dim $i_time = 100;Time in milliseconds before the title scrolls over an aditional letter

While 1
$msg = GUIGetMsg()
Switch $msg
    Case $close
        Exit
EndSwitch
If TimerDiff($i_TitleTimeStamp) >= $i_time Then
    ScrollTitle()
    $i_TitleTimeStamp = TimerInit()
EndIf
WEnd

Func ScrollTitle()
    If $i_TitleCounter <= $nwidth Then
        WinSetTitle (_StringRepeat (" ",$i_TitleCounter-1) & $title,"",_StringRepeat (" ",$i_TitleCounter) & $title)
        $i_TitleCounter+=1
    Elseif $i_TitleCounter > $nwidth Then
        WinSetTitle (_StringRepeat (" ",$nwidth) & $title,"",$title)
        $i_TitleCounter = 1
    Else
        Msgbox(0,"Error","An error has occured.")
    EndIf
EndFunc

- The Kandie Man ;-)

[phantom]

Yup thanks