Вот код-где же ошибка?
ссылка на картинку "1.png"
http://rghost.ru/49043697
Graphics3D 1024,768, 0, 2
SetBuffer=(BackBuffer)
p_1=LoadImage("1.png")
While Not KeyHit(1)
Cls
If KeyDown (203) Then x=x-1
If KeyDown (205) Then x=x+1
For a = 1 To 5
HandleImage p_1,x,0
DrawImage p_1,1*(4*a*x),300+(a*3)
Next
Flip
Wend
End