se usar o seguinte fora do wvgcrt() funciona:
Wvg_Image ( 01 , 01 , 08 , 29 , , GOBJ_IMAGESOURCE_FILE, TLogin , , .f. )
Já dentro de uma função que cria o WvgCrt() não funciona.
A minha WVG_CRT é basicamente a mesma coisa da pasta TESTS, só com algumas modificações:
WITH OBJECT oCrt := WvgCrt():New( , , { nTop , nLef }, { nBot , nRig }, , .t. )
:lModal := .t.
:title := cTit
:icon := "AppIcon"
:resizable := .F.
:closable := .F.
:minMax := .F.
:lbDblClick( )
:create()
:setColorFG(cCor)
ENDWITH
Wvg_Image ( 01 , 01 , 08 , 29 , , GOBJ_IMAGESOURCE_FILE, TLogin , , .t. )
Wvg_DrawImage ( 1, 1, 10, 10, TLogin, , .f. )
Talvez esteja faltando alguma outra peça pra funcionar, que eu não vi no demowvg.prg.