Problem with Pause script on start

MsgBox ( 4096, "xxx" )
SoundPlay(@WindowsDir & "\media\Windows Ding.wav", 0)
Global $Paused
HotKeySet("{PAUSE}", "TogglePause")
While 1=1
ControlSend("xxx", "", "", "{1 DOWN}")
Sleep(3000)
WEnd
Func TogglePause()
SoundPlay(@WindowsDir & "\media\Heritage\Windows Error.wav", 0)
$Paused = Not $Paused
While $Paused
Sleep(0)
ToolTip('Script is "Paused"', 0, 0)
WEnd
ToolTip("")
EndFunc ;==>TogglePause