Don't want to appear too negative but couldn't you post a simplified but runnable version of the code you're having trouble with.
<edit> Maybe this :
?
You might also want to check the setorigin command.
<edit> Maybe this :
Graphics 640 , 480 Local image1:TImage=LoadImage("max.png") While Not KeyHit(KEY_ESCAPE) Cls SetViewport x1 , 100 , 200,200 DrawImage image1 , x2 , 0 x1 = (x1 + 4) Mod 640 'x2=x1 'uncomment to see a different effect. SetViewport(0 , 0 , 640 , 480) DrawImage image1,200,0 Flip Wend
?
You might also want to check the setorigin command.