Veja se assim resolve.
oDlg_BUSCA:bPainted := {|| ImagemFundo(oDlg_BUSCA) }
ou
Active .... ON PAINT ImagemFundo( oDlg_BUSCA )
Static Function ImagemFundo( oDlg )
Local oImg
oImg := TImage():Define( "ACG_BUSCARACGINV", , oDlg )
oDlg:SayBitmap( 0, 0, oImg, oDlg:nWidth(), oDlg:nHeight() )
Return(.T.)