Titel wird nicht gesetzt

Global $gui = guicreate("",300,60)
$p = guictrlcreateprogress(10,10,280,40)

guisetstate()
Sleep(2000)
guictrlsetdata($p,10)
Sleep(2000)
guictrlsetdata($p,20)
Sleep(2000)
guictrlsetdata($p,30)
Sleep(2000)
guictrlsetdata($p,40)
Sleep(2000)
guictrlsetdata($p,50)
Sleep(2000)
guictrlsetdata($p,60)
Sleep(2000)
guictrlsetdata($p,70)
Sleep(2000)
guictrlsetdata($p,80)
Sleep(3000)
guictrlsetdata($p,90)
Sleep(3000)
guictrlsetdata($p,99)
Sleep(3000)
guictrlsetdata($p,100)
while 1
If GUICTrlREad($p) >= 0 Then
WinSetTitle($gui,"",GUICTRlREad($p) & "% - Prozent")
Endif
If GUICtrlREad($p) = 100 Then
Sleep(100)
Exit
Endif
$msg = guigetmsg()
Select
Case $msg = -3
Exit
EndSelect
wend