Your code works ok as a prg or as a plain exe.
But here's the problem: my project is built as a custom OlePublic class so I can call it as an automation server from another mtdll. If I try something to add your class definition like the following and build into one exe I will get an error on the Report form line the error is ".F. is not an objecdt 1924"

Define class getthehtml as Custom OlePublic
...
loListener = CREATEOBJECT('oListener')
Report Form budget.frx Object loListener
lc=FiletoStr(loListener.targetfilename)
RETURN lc
enddefine

DEFINE CLASS oListener AS HtmlListener OF (HOME()+"FFC\_reportListener.vcx")
  ListenerType = 5  && Not Sure if this is needed
  OutputType   = 5  && Not Sure if this is needed.
  quietmode    = .t.
  PROCEDURE GetPageHeight()
    RETURN 960*11
  ENDPROC
  PROCEDURE GetPageWidth()
    RETURN 960*8.5
  ENDPROC
ENDDEFINE

I need to have the reclassed oListener code in a separate dll maybe ???