hWnd=GetActiveWindow()

Local hWnd = api_GetActiveWindow()
;api_ShowWindow(hWnd,0)

Local hDC    = api_GetDC(0)
Local Width  = api_GetDeviceCaps(hDC,8)
Local Height = api_GetDeviceCaps(hDC,10)
Local Bank   = CreateBank(Width * Height * 4)
Local X,Y,RGB,R,G,B


For X = 0 To Width -1
   For Y = 0 To Height - 1
      RGB = api_GetPixel(hDC,X,Y)
      PokeByte Bank,(X + Y * Width) * 4 + 2,(RGB Shr 16) And $FF
      PokeByte Bank,(X + Y * Width) * 4 + 1,(RGB Shr 8) And $FF
      PokeByte Bank,(X + Y * Width) * 4 + 0,(RGB And $FF)
   Next
Next
api_ReleaseDC(hWnd,hDC)


Graphics 640,480,32,2
SetBuffer BackBuffer()

AppTitle "Screenshot"
;api_ShowWindow(hWnd,5)

Local Image = CreateImage(Width,Height)
LockBuffer ImageBuffer(Image)
For X = 0 To Width -1
   For Y = 0 To Height - 1
      R   = PeekByte(Bank,(X + Y * Width) * 4 + 0)
      G   = PeekByte(Bank,(X + Y * Width) * 4 + 1)
      B   = PeekByte(Bank,(X + Y * Width) * 4 + 2)
      RGB = R * $10000 + G * $100 + B
      WritePixelFast X,Y,RGB,ImageBuffer(Image)
   Next
Next
UnlockBuffer ImageBuffer(Image)
FreeBank Bank




While Not KeyHit(1)
;   DrawBlock Image,Rnd(-8,8),Rnd(-8,8)
   DrawBlock Image,0,0
   Flip
   Cls
Wend
End