Sub timerwormmove_tick
If worm.Left>-15%x Then
If worm.Tag=0 Then
worm.Tag=1
worm.SetBackgroundImage(LoadBitmap(File.DirAssets,"henworm1.png"))
' worm.Left=worm.Left-5%x
worm.SetLayoutAnimated(timerwormmove.Interval,worm.Left-5%x,worm.Top,11%x,worm.Height)
Else if worm.Tag=1 Then
worm.Tag=0
worm.SetLayoutAnimated(timerwormmove.Interval,worm.Left-7%x,worm.Top,13%x,worm.Height)
worm.SetBackgroundImage(LoadBitmap(File.DirAssets,"henworm0.png"))
End If
Else
worm.Left=100%x
End If
End Sub