Desktop Live Wallpaper with Xojo?

Getting Started
8

this small code change the windows desktop background image in a timer action event with interval 1000 ms.
not live but at least a change of images.
Number is a integer Property with default =1

System.DebugLog "Timer"

Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Integer, ByVal uParam    As Integer, ByVal lpvParam As CString, ByVal fuWinIni As Integer) As Integer

Const SETDESKWALLPAPER = 20
Const UPDATEINIFILE = &H1

Dim  Location As CString =  "C:\\Temp\\test"+Str(Number)+".jpg"

Dim Ret As Integer
Ret = SystemParametersInfo(SETDESKWALLPAPER, 0, Location, UPDATEINIFILE)

Number = Number +1
If Number > 3 Then Number = 1