Icon changer

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <process.au3>
$DELAY = 250
$ICOnGUI = GUICreate("Icon Changer", 287, 140, 193, 115)
$ICONBrows = GUICtrlCreateLabel("Type Location:", 16, 40, 80, 17)
$ICONBrowsin = GUICtrlCreateInput("", 112, 40, 153, 21)
$SHORTCUT = GUICtrlCreateLabel("Shortcut Name:", 16, 80, 75, 17)
Dim $ES_PA,$ES_AU
$SHORTCUTIN = GUICtrlCreateInput("", 112, 80, 153, 21, BitOR($ES_PA,$ES_AU))
$btnOK = GUICtrlCreateButton("&GO!", 110, 110, 75, 25, 0)
$lblInfo = GUICtrlCreateLabel("Brows your Icon!", 48, 8, 196, 20)
$lblInfo = GUICtrlSetFont($lblInfo, 12, 800)
GUISetState(@SW_SHOW)
while 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $btnOK
$Brows = GUICtrlRead($ICONBrowsin)
If StringLen($Brows)=0 Then
MsgBox(64,"AdnanBaloch","Plese Type your Icon Location")
Else
$short = GUICtrlRead($SHORTCUTIN)
if StringLen($short) = 0 Then
MsgBox(64,"AdnanBaloch","Plese Type your Shortcut Name")
Else
$Brows = GUICtrlRead($ICONBrowsin)
$short = GUICtrlRead($SHORTCUTIN)
Send("#d")
Sleep($DELAY)
Sleep($DELAY)
ControlListView("", "", "SysListView321", "SelectClear")
$ControlID2 = ControlListView("", "", "SysListView321", "FindItem", $short, "")
ControlListView("", "", "SysListView321", "Select", $ControlID2)
Sleep($DELAY)
Sleep($DELAY)
Send("!{Enter}")
Sleep($DELAY)
WinWaitActive($short & " Properties")
Send("!c")
WinWaitActive("Change Icon")
Send("!l")
Sleep($DELAY)
Send($Brows)
Sleep($DELAY)
Send("!s") ;Cruser will go on Icon
Sleep($DELAY)
Send("{Enter}")
WinWaitActive($short & " Properties")
Send("!a")
Sleep($DELAY)
Send("{Enter}")
ExitLoop
EndIf
EndIf
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
GUISetState(@SW_HIDE)
WinWaitClose($short & " Properties")
MsgBox(0, "Adnan Baloch", "Script wrote By Adnan Baloch")