Quise iniciar una vista pdf según manual de calimero, pero dio error

Pueden indicarme por qué ? ... Uso Win 7 Professional ...
A continuación el Código:
#include "hmg.ch"
FUNCTION Main()
DEFINE WINDOW Form_1 ;
AT 0,0 ;
WIDTH 800 ;
HEIGHT 600 ;
TITLE "VER PDF" ;
MAIN
END WINDOW
@ 10,10 ACTIVEX Test ;
PARENT Form_1 ;
WIDTH 600 ;
HEIGHT 400 ;
PROGID "AcroPDF.PDF.1"
Form_1.Test.Object:src := GetCurrentFolder() + "\" + "PQ.pdf"
Activate Window Form_1
RETURN NIL