Global GW%=GadgetWidth(Desktop())
Global GH%=GadgetHeight(Desktop())
Global Image%=CreateImage(GW%,GH%)
Global RGB%

CopyRect 0,0,GW%,GH%,0,0,DesktopBuffer(),ImageBuffer(Image%)
SetBuffer ImageBuffer(image)
;win=CreateWindow("snapshot",0,0,10,10)
Can=CreateCanvas(0,0,GW,GH,Desktop());,win)
SetGadgetLayout can,0,0,0,0
ActivateGadget can

SetBuffer CanvasBuffer(can)

Repeat
   DrawImage image,0,0
   FlipCanvas can
   ActivateGadget can
   ;SetGadgetShape can,0,0,gw,gh

Until KeyHit(1)


SaveImage(image,Trim(CommandLine())+"snapshot.bmp")
FreeImage image
End