[Nunan]

mr.DIMAS, потомучто изображение выводит на экран команда FLIP!!!
вот так надо:
Dim img(n)
repeat
i=i+1:if i>n then i=1
Drawimage imag(i),x,y
Flip
Until KeyHit(1)

но вообщето такое обсуждается не в этом разделе, а в разделе 2д прогр.