#Include "window9.bi"

Dim As Integer event
Dim As HWND hwnd

hwnd=OpenWindow("",10,10,400,400) : CenterWindow(hwnd)
ImageGadget(1,50,30,200,200,LoadImageFromResource(Cast(any ptr,100)))

Do
   event=WaitEvent()
   If Event=EventClose Then End
Loop

100 RCDATA "1.png"

fbc -s gui "test.bas" "test.rc"

#Include "window9.bi"
Using GDIPLUS
const as integer x = 10 , y = 10
dim shared as any ptr gdiplusbitmap
dim shared As HDC compHdc,hdc
Dim As PVOID GpGraphics
dim as HBITMAP bitmap
Dim As Integer event
Dim As HWND hwnd

Function WndProcUser(hWnd As HWND,uMsg As UINT,wParam As WPARAM,lParam As LPARAM) As Integer
    Dim ps As PAINTSTRUCT
    Select Case uMsg
  Case WM_PAINT
   BeginPaint(hWnd,@ps)
   BitBlt(ps.hdc,ps.rcPaint.left,ps.rcPaint.top,ps.rcPaint.right-ps.rcPaint.left,ps.rcPaint.bottom-ps.rcPaint.top,compHdc,ps.rcPaint.left,ps.rcPaint.top,SRCCOPY)
   EndPaint(hWnd,@ps)
   Return 0
    End Select
End Function

hwnd=OpenWindow("",10,10,400,400) : CenterWindow(hwnd)
gdiplusbitmap = load_imagea("1.png")
hdc=GetDC(GetDesktopWindow)
compHdc=CreateCompatibleDC(hdc)
bitmap = CreateCompatibleBitmap(hdc,GetSystemMetrics(SM_CXSCREEN),GetSystemMetrics(SM_CYSCREEN))
SelectObject(compHdc,bitmap)
DeleteObject(bitmap)
ReleaseDC(GetDesktopWindow,hdc)
GdipCreateFromHDC(compHdc,@GpGraphics)
GdipGraphicsClear(GpGraphics,&hffffffff)
GdipDrawImage(GpGraphics,gdiplusbitmap,x,y)
GdipDeleteGraphics(GpGraphics)
InvalidateRect(hwnd,0,0)
SetWindowCallback(CInt(@WndProcUser()))
Do
    event=WaitEvent()
    If Event=EventClose Then
  DeleteDC(compHdc)
  End  
    EndIf
Loop

Function LoadImageFromResource(byval lpResName As LPCTSTR, byval color As Integer=hf0f0f0) As HBITMAP

Function LoadImageFromResource(byval lpResName As any ptr, byval color_ As Integer) As HBITMAP Export

Union uIC
   ul As ULong
   Type
      r As UByte
      g As UByte
      b As UByte
      a As UByte
   End Type
End Union

dim ic as uIC

ic.ul = GetSysColor(COLOR_BTNFACE)

ImageGadget(1,50,30,170,170,LoadImageFromResource(Cast(any ptr,100) , bgr(ic.b , ic.g , ic.r)))