I build COM server with VFP9. In other application I have:

mx = CREATEOBJECT("MyClass")
ooo = CREATEOBJECT("Test.TestConnection")

? EVENTHANDLER(ooo,mx) && Here I receive .f.



DEFINE CLASS myclass AS session OLEPUBLIC

    IMPLEMENTS Itestconnection IN "test.TestConnection"

    PROCEDURE Itestconnection_get_ClassLibrary() AS STRING;
                 HELPSTRING "Specifies the file name of the user-defined class library that contains the object's class."
    * add user code here
    ENDPROC

    PROCEDURE Itestconnection_get_LTABLES() AS VARIANT
    * add user code here
    ENDPROC

    PROCEDURE Itestconnection_put_LTABLES(eValue AS VARIANT @)
    * add user code here
    ENDPROC

    PROCEDURE Itestconnection_get_LNSQLCONNECTION() AS VARIANT
    * add user code here
    ENDPROC

    PROCEDURE Itestconnection_put_LNSQLCONNECTION(eValue AS VARIANT @)
    * add user code here
    ENDPROC

    PROCEDURE Itestconnection_get_LCSQLCONNSTRING() AS VARIANT
    * add user code here
    ENDPROC

    PROCEDURE Itestconnection_put_LCSQLCONNSTRING(eValue AS VARIANT @)
    * add user code here
    ENDPROC

    PROCEDURE Itestconnection_get_LCTABLETOCHECK() AS VARIANT
    * add user code here
    ENDPROC

    PROCEDURE Itestconnection_put_LCTABLETOCHECK(eValue AS VARIANT @)
    * add user code here
    ENDPROC

    PROCEDURE Itestconnection_get_LOCOLLECTION() AS VARIANT
    * add user code here
    ENDPROC

    PROCEDURE Itestconnection_put_LOCOLLECTION(eValue AS VARIANT @)
    * add user code here
    ENDPROC

    PROCEDURE Itestconnection_Init(InitParm1 AS VARIANT, InitParm2 AS VARIANT) AS VARIANT;
                 HELPSTRING "Occurs when an object is created."
    * add user code here
    ENDPROC

    PROCEDURE Itestconnection_RunChecks(lcSQLConnectionString AS STRING, lnTimerInterval AS Number, LCTABLETOCHECK AS STRING) AS LOGICAL
         ASSERT .f.
    * add user code here
    ENDPROC

    PROCEDURE Itestconnection_RegisterForm(loForm AS VARIANT @, lcTables AS VARIANT @) AS VARIANT
         ASSERT .f.
    * add user code here
    ENDPROC

    PROCEDURE Itestconnection_UnRegisterForm(loForm AS VARIANT @) AS VARIANT
         ASSERT .f.
    * add user code here
    ENDPROC

    PROCEDURE Itestconnection_Destroy() AS VARIANT;
                 HELPSTRING "Occurs when an object is released."
    * add user code here
    ENDPROC

    PROCEDURE Itestconnection_FireEvent() AS VARIANT
         ASSERT .f.
    * add user code here
    ENDPROC

    PROCEDURE Itestconnection_FormEvent(oForm AS VARIANT) AS VARIANT;
                 HELPSTRING "Òå òóêà ñìå"
         ASSERT .f.
         WAIT WINDOW "AAAAAAAAAAAAAAAA" NOWAIT NOCLEAR
    * add user code here
    ENDPROC

    PROCEDURE Itestconnection_Error(nError AS Number, cMethod AS STRING, nLine AS Number) AS VARIANT;
                 HELPSTRING "Occurs when there is a run-time error in a method."
    * add user code here
    ENDPROC

    PROCEDURE Itestconnection_ReadExpression(cPropertyName AS STRING) AS VARIANT;
                 HELPSTRING "Contains the expression entered for a property value in the property sheet."
    * add user code here
    ENDPROC

    PROCEDURE Itestconnection_ReadMethod(cMethod AS STRING) AS VARIANT;
                 HELPSTRING "Returns the text of the specified method."
    * add user code here
    ENDPROC

    PROCEDURE Itestconnection_ResetToDefault(cProperty AS Number) AS VARIANT;
                 HELPSTRING "Resets the property/method to the inherited value."
    * add user code here
    ENDPROC

    PROCEDURE Itestconnection_SaveAsClass(cClassLibName AS STRING, cClassName AS STRING, cDescription AS STRING) AS VARIANT;
                 HELPSTRING "Saves an instance of an object as a class definition in a class library."
    * add user code here
    ENDPROC

    PROCEDURE Itestconnection_WriteExpression(cPropertyName AS STRING, cExpression AS STRING) AS VARIANT;
                 HELPSTRING "Writes an expression to a property."
    * add user code here
    ENDPROC

    PROCEDURE Itestconnection_WriteMethod(cMethodName AS STRING, cMethodText AS STRING, lCreateMethod AS STRING, nVisibility AS STRING, cDescription AS STRING) AS VARIANT;
                 HELPSTRING "Writes the specified text to the specified method."
    * add user code here
    ENDPROC

    PROCEDURE Itestconnection_AddProperty(cPropertyName AS STRING, vNewValue AS VARIANT, nVisibility AS STRING, cDescription AS STRING) AS VARIANT;
                 HELPSTRING "Adds a new property to an object."
    * add user code here
    ENDPROC

    PROCEDURE Itestconnection_get_BaseClass() AS STRING;
                 HELPSTRING "Specifies the name of the Visual FoxPro base class on which the referenced object is based."
    * add user code here
    ENDPROC

    PROCEDURE Itestconnection_get_Class() AS STRING;
                 HELPSTRING "Returns the name of the class that an object is based on."
    * add user code here
    ENDPROC

    PROCEDURE Itestconnection_get_ParentClass() AS STRING;
                 HELPSTRING "Returns the name of the parent class on which the object is based."
    * add user code here
    ENDPROC

    PROCEDURE Itestconnection_get_Parent() AS Number;
                 HELPSTRING "References the container object of a control."
    * add user code here
    ENDPROC

    PROCEDURE Itestconnection_get_Comment() AS STRING;
                 HELPSTRING "Stores information about an object."
    * add user code here
    ENDPROC

    PROCEDURE Itestconnection_put_Comment(eValue AS STRING @);
                 HELPSTRING "Stores information about an object."
    * add user code here
    ENDPROC

    PROCEDURE Itestconnection_get_Name() AS STRING;
                 HELPSTRING "Specifies the name used to reference an object in code."
    * add user code here
    ENDPROC

    PROCEDURE Itestconnection_put_Name(eValue AS STRING @);
                 HELPSTRING "Specifies the name used to reference an object in code."
    * add user code here
    ENDPROC

    PROCEDURE Itestconnection_get_Tag() AS STRING;
                 HELPSTRING "Stores any extra data needed for your program."
    * add user code here
    ENDPROC

    PROCEDURE Itestconnection_put_Tag(eValue AS STRING @);
                 HELPSTRING "Stores any extra data needed for your program."
    * add user code here
    ENDPROC

    PROCEDURE Itestconnection_get_Height() AS Number;
                 HELPSTRING "Specifies the height of an object on the screen."
    * add user code here
    ENDPROC

    PROCEDURE Itestconnection_put_Height(eValue AS Number @);
                 HELPSTRING "Specifies the height of an object on the screen."
    * add user code here
    ENDPROC

    PROCEDURE Itestconnection_get_Width() AS Number;
                 HELPSTRING "Specifies the width of an object."
    * add user code here
    ENDPROC

    PROCEDURE Itestconnection_put_Width(eValue AS Number @);
                 HELPSTRING "Specifies the width of an object."
    * add user code here
    ENDPROC

    PROCEDURE Itestconnection_AddObject(cName AS STRING, cClass AS STRING, cOLEClass AS STRING, aInit1 AS VARIANT) AS VARIANT;
                 HELPSTRING "Adds an object to a container object at run time."
    * add user code here
    ENDPROC

    PROCEDURE Itestconnection_NewObject(cName AS STRING, cClass AS STRING, cModule AS STRING, cInApplication AS STRING, cOLEClass AS STRING, aInit1 AS VARIANT) AS VARIANT;
                 HELPSTRING "Adds an object to a container object at run time."
    * add user code here
    ENDPROC

    PROCEDURE Itestconnection_RemoveObject(cObjectName AS STRING) AS VARIANT;
                 HELPSTRING "Removes a specified object from a Container object at run time."
    * add user code here
    ENDPROC

    PROCEDURE Itestconnection_get_Picture() AS STRING;
                 HELPSTRING "Specifies the graphics file or field to display on the control."
    * add user code here
    ENDPROC

    PROCEDURE Itestconnection_put_Picture(eValue AS STRING @);
                 HELPSTRING "Specifies the graphics file or field to display on the control."
    * add user code here
    ENDPROC

    PROCEDURE Itestconnection_get_HelpContextID() AS Number;
                 HELPSTRING "Specifies a context ID for a topic in a Help file to provide context-sensitive Help."
    * add user code here
    ENDPROC

    PROCEDURE Itestconnection_put_HelpContextID(eValue AS Number @);
                 HELPSTRING "Specifies a context ID for a topic in a Help file to provide context-sensitive Help."
    * add user code here
    ENDPROC

    PROCEDURE Itestconnection_get_WhatsThisHelpID() AS Number;
                 HELPSTRING "Specifies a Help topic context ID to provide What's This help for an object."
    * add user code here
    ENDPROC

    PROCEDURE Itestconnection_put_WhatsThisHelpID(eValue AS Number @);
                 HELPSTRING "Specifies a Help topic context ID to provide What's This help for an object."
    * add user code here
    ENDPROC

    PROCEDURE Itestconnection_ShowWhatsThis() AS VARIANT;
                 HELPSTRING "Displays the Help topic specified for an object with the WhatsThisHelpID property."
    * add user code here
    ENDPROC

    PROCEDURE Itestconnection_get_Controls() AS Number;
                 HELPSTRING "An array for accessing the controls in a container object."
    * add user code here
    ENDPROC

    PROCEDURE Itestconnection_get_ControlCount() AS Number;
                 HELPSTRING "Specifies the number of controls in a container object."
    * add user code here
    ENDPROC

    PROCEDURE Itestconnection_get_Objects() AS Number;
                 HELPSTRING "An array for accessing the objects in a container object."
    * add user code here
    ENDPROC

ENDDEFINE

How could I know WHY I couldn't bind the events?
TIA

BTW My class I get with Drag and drop the interface from Object Browser.