I've just encountered a new problem

I am trying to write a script for one of my widgets. I need it to, on command executed, start moving one of the object downwards until it gets to defined top=1000.
This is what I have now:
Sub Object_OnStateChange(state)
If state = "Command executed" Then
Object.SetTimer 90909, 10
End If
End Sub
Sub Object_OnTimer90909
DesktopX.Object("iKC_Arm_S").Top = DesktopX.Object("iKC_Arm_S").Top + 10
End Sub
Sub Object_OnTimer90909
If DesktopX.Object("iKC_Arm_S").Top > 1000 Then
Object.KillTimer 90909
End If
End Sub
This script won't move the object even for 1 px
The problem must be somewhere in last Sub, because If I delete it form script, it moves the object downwards.. That's cool, but it has to stop the object form moving outside my screen....
Please, If anyone knows what to do, post a reply