<br />
; Initialise an array big enough to fit all the color information of the screen
<br />
Dim pix(GraphicsWidth(),GraphicsHeight())
<br />

<br />
; Lock buffer before using ReadPixelFast
<br />
LockBuffer
<br />

<br />
; Use ReadPixel to get all the color information of the screen
<br />
For y=0 To GraphicsHeight()
<br />
For x=0 To GraphicsWidth()
<br />
pix(x,y)=ReadPixelFast(x,y)
<br />
Next
<br />
Next
<br />

<br />
; Lock buffer after using ReadPixelFast
<br />
UnlockBuffer
<br />

<br />
Cls
<b