Try this
For t:Ttemp=EachIn Ltemp
If t.x>640 Then t.x=0 ' loop through the screen
t.angle = -Sin(t.x)*50'get angle
t.y=240+Cos(t.x)*50
t.x:+1't.vx ' ,move on the x
SetRotation t.angle
SetColor 255,255,255 ; DrawRect t.x-16,t.y-8,32,16
SetRotation 0
Next