GrabImage unreliable unless flip is called twice

@Oddbal
I don't have a problem with grabimage on my PC either, seems to be a problem with certain graphic cards. I have not tried OpenGL as my games use the DirectX driver. I'll have to get the specs, but one of them was an off-the-shelf year old Dell.

Heres the code:

' Test of Grab Image
Graphics 640,480,0
Local myImage:tImage=IB_Image2()
Cls
DrawImage myImage,10,10
Flip

WaitKey




Function IB_Image2:tImage(TXT:String="Hello World")
	Local lWidth:Int,lHeight:Int
	lWidth=TextWidth(TXT)+2
	lheight=TextHeight(TXT)+2	

	Local tWidth:Int,tHeight:Int,X:Int,Y:Int
	Local mImage:tImage=CreateImage(lWidth,lHeight)
	SetClsColor 0,0,0
	Cls
	' put in our text
	tWidth=TextWidth(TXT)/2
	tHeight=TextHeight(TXT)/2
	X=(lWidth/2)-tWidth
	Y=(lHeight/2)-tHeight
	SetColor 50,50,50
	DrawText TXT,X+2,Y+2
	SetColor 255,255,255
	DrawText TXT,X,Y
	' With the two flips below, this code would work on all pc's, not just some.
	' Flip 
	' Flip
	' now Grab the image
	GrabImage mImage,0,0
	Return mImage
End Function

This code would only works on some pcs all the time. If you take out the rems before the flip commands it works all the time, but it looks stupid seeing the drawing going on.