#include once "form.bi"
#inclib "form"

dim shared as tform form 
dim shared as tbitmap bitmap

bitmap.transparency=1
bitmap = "logo.bmp"
bitmap.savetofile("$$$.bmp")

sub FormPaint(sender as tform) 
    with sender
        bitmap.DrawTransparent(.Canvas.DC,10,10,&hff00ff)
        bitmap.StretchDrawTransparent(.Canvas.DC,120,120,300,300,&hff00ff)
    end with
end sub

form.onpaint      = @formpaint
form.caption      = "eGUI"
form.main         = 1
form.visible      = 1
form.width        = 500
form.height       = 500
form.parent       = 0

dim as msg m
while GetMessage(@m,0,0,0)>0
    TranslateMessage(@m)
    DispatchMessage(@m)
wend