как сделать слайд шоу?

#include <GuiConstantsEx.au3>
#include <File.au3>

$Folder = @WindowsDir & "\Web\Wallpaper\Landscapes"
$Files = _FileListToArray($Folder, "*.jpg", 1, True)
If @error Then Exit

Global $Width = 960, $Height = 600, $i = 1, $Pic

$GUI = GUICreate("Example", $Width, $Height)
$Pic = GUICtrlCreatePic($Files[1], 0, 0, $Width, $Height)
GUISetState()

Do
  Switch GUIGetMsg()
    Case $GUI_EVENT_CLOSE
      ExitLoop
    Case $GUI_EVENT_PRIMARYDOWN
      $i += 1
      If $i > $Files[0] Then $i = 1
      GUICtrlDelete($Pic)
      $Pic = GUICtrlCreatePic($Files[$i], 0, 0, $Width, $Height)
    Case $GUI_EVENT_SECONDARYDOWN
      $i -= 1
      If $i < 1 Then $i = $Files[0]
      GUICtrlDelete($Pic)
      $Pic = GUICtrlCreatePic($Files[$i], 0, 0, $Width, $Height)
  EndSwitch
Until 0

>"C:\Program Files (x86)\AutoIt3\SciTE\..\autoit3.exe" /ErrorStdOut "C:\Users\User\Desktop\Тест\шифратор\слайдшоу.au3"    
>Exit code: 0    Time: 0.1144