Office launcher

#include <GUIListBox.au3>
#include <GUIListview.au3>
#include <GuiConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Constants.au3>
$Debug_LB = False
GUICreate("Microsoft Office Launcher")
$file=GUICtrlCreateMenu("&File")

$esci=GUICtrlCreateMenuItem("Esci", $file)
$hListBox = GUICtrlCreateList("", 2, 2, 396, 296)
$hlistview = $hlistbox
       _GUICtrlListBox_BeginUpdate($hListBox)

   $ciao=_GUICtrlListBox_Dir($hListBox, @userProfileDir&"\Menu Avvio\Programmi\Microsoft Office\*.*")


   _GUICtrlListBox_EndUpdate($hListBox)
$button=guictrlcreatebutton("Apri", 300, 300)
GUIRegisterMsg($WM_COMMAND, "WM_COMMAND")


GUISetState()
Do
       $msg=GUIGetMsg()
       Switch $msg
       case $button

               $fileopen=GUICtrlRead($hlistbox)
               shellexecute(@userProfileDir&"\Menu Avvio\Programmi\Microsoft Office\"&$fileopen)
       case $hlistbox

               
       EndSwitch
until $msg=-3 or $msg=$esci

Func WM_COMMAND($hWnd, $iMsg, $iwParam, $ilParam)
       #forceref $hWnd, $iMsg
       Local $hWndFrom, $iIDFrom, $iCode, $hWndListBox
       If Not IsHWnd($hListBox) Then $hWndListBox = GUICtrlGetHandle($hListBox)
       $hWndFrom = $ilParam

       $iCode = BitShift($iwParam, 16) ; Hi Word

       Switch $hWndFrom
               Case $hListBox, $hWndListBox
                       Switch $iCode
                       Case $LBN_DBLCLK
                               $fileopen=GUICtrlRead($hlistbox)
               shellexecute(@userProfileDir&"\Menu Avvio\Programmi\Microsoft Office\"&$fileopen)
                               EndSwitch
       EndSwitch
       ; Proceed the default Autoit3 internal message commands.
       ; You also can complete let the line out.
       ; !!! But only 'Return' (without any value) will not proceed
       ; the default Autoit3-message in the future !!!
       Return $GUI_RUNDEFMSG
EndFunc