XProfan

Proc test

    Declare h1&, h2&
    h1& = bild("Text",32,32,RGB(0,0,255),RGB(255,0,0))
    h2& = bild("Txt2",48,48,RGB(0,255,0),RGB(0,0,255))
    Return Str$(h1&)+"_"+Str$(h2&)

EndProc

Proc bild

    Parameters text$, x&, y&, color&, bg&
    MCLS x&, y&
    StartPaint -1
    CLS bg&
    TextColor color&,-1
    DrawText 1,1,text$;-1
    EndPaint
    Return Create("hPic",0,"&MEMBMP")

EndProc

CLS
Declare test$, pic1&, pic2&
test$ = test()
pic1& = Val(SubStr$(test$,1,"_"))
pic2& = Val(SubStr$(test$,2,"_"))
DrawPic pic1&,0,0;0
DrawPic pic2&,0,32;0
WaitInput
DeleteObject pic1&
DeleteObject pic2&