PC Toledo

O problema está no METHOD New, no seguinte trecho:

::Activate()

If bChange != Nil
::oParent:AddEvent( MCN_SELECT, ::id, bChange, .T. )
::oParent:AddEvent( MCN_SELCHANGE, ::id, bChange, .T. )
EndIf

Repare que o objeto está sendo ativado antes que o evento do change seja passado.
Para resolver basta colocar o Activate apos o If, ficando assim:

If bChange != Nil
::oParent:AddEvent( MCN_SELECT, ::id, bChange, .T. )
::oParent:AddEvent( MCN_SELCHANGE, ::id, bChange, .T. )
EndIf

::Activate()

Espero ter ajudado.

Outra dica: Para não precisar recompilar o hwgui, faça uma cópia do hcmonthc.prg para a pasta do seu programa, adicione ele ao projeto e faça as alterações.