function Main()

   lChDir(cFilePath(HB_ARGV(0)))

   OVERRIDE METHOD HandleEvent IN CLASS TControl WITH ControlHE // <--------------

   SET HELPFILE TO "ayuda1.chm"  
    SetHelpPopup('Ayuda.txt')

   DEFINE WINDOW oWnd FROM 1, 1 TO 40, 120 ;
      MENU BuildMenu()
    oWnd:nHelpID := 'Intro'

   ACTIVATE WINDOW oWnd

return nil

......

static function ControlHE( nMsg, nWParam, nLParam )
   local Self := HB_QSelf()
...

ayuda1.PRG(17) Error E0030  Syntax error "syntax error at 'METHOD'"

#include "FiveWin.ch"
#include "InKey.ch"
#include "hbclass.ch"
#include "..\res\resources.h"

static oWnd

//----------------------------------------------------------------------------//

function Main()

   lChDir(cFilePath(HB_ARGV(0)))

    OVERRIDE METHOD HandleEvent IN CLASS TControl WITH ControlHE

   SET HELPFILE TO "ayuda1.chm"  
    SetHelpPopup('Ayuda.txt')

   DEFINE WINDOW oWnd FROM 1, 1 TO 40, 120 ;
      MENU BuildMenu()
    oWnd:nHelpID := 'Intro'

   ACTIVATE WINDOW oWnd

return ni

#xcommand OVERRIDE METHOD <!Message!> [IN] CLASS <!Class!> WITH [METHOD] ;
                          <!Method!> [SCOPE <Scope>] => ;
          __clsModMsg( <Class>():classH, #<Message>, @<Method>(), ;
                       IIF( <.Scope.>, <Scope>, HB_OO_CLSTP_EXPORTED ) )