From ram to vram

Thanks, very helpful!
So is it something like this.. Or am i doing too much.

I want to insure that only the currImg is in the Vram

Local images:TImage[]
images:+[LoadImage("img00.png") ]  
images:+[LoadImage("img01.png") ]  
images:+[LoadImage("img02.png") ]  


Local frame:Int = 0


SetGraphicsDriver D3D7Max2DDriver()
Graphics 512,512


While Not KeyDown(KEY_ESCAPE)
	Cls
	SetColor 255,255,255
	SetBlend AlphaBlend
	
	frame = (frame + 1) Mod Len(images)
	
	Local currImg:TImage = New TImage
	currImg = images[frame]
	DrawImage currImg,0,0 
	currImg = Null
	
	Flip 1
Wend
End