Miembro desconocido.

Aun no le entiendo el bindevent y no me funciona mi insipiente conversion,
me podrian decir que me esta fallando?

* Imagen de fondo con stretch en SCREEN
*_SCREEN.ADDOBJECT("oScreenResize","ScreenResize") && Definida abajo...
*_SCREEN.ADDOBJECT("oImg", "image")
*_SCREEN.oimg.PICTURE = "Logo.Jpg"
*_SCREEN.oimg.STRETCH = 1
*_SCREEN.oimg.VISIBLE = .T.
*_SCREEN.oimg.WIDTH = _SCREEN.WIDTH
*_SCREEN.oimg.HEIGHT = _SCREEN.HEIGHT
************************************************
*DEFINE CLASS ScreenResize AS CUSTOM
* oscreen = _SCREEN
* FUNCTION oscreen.RESIZE()
* _SCREEN.oimg.WIDTH = _SCREEN.WIDTH
* _SCREEN.oimg.HEIGHT = _SCREEN.HEIGHT
* ENDFUNC
*ENDDEFINE
***********************************************

PUBLIC oManejador
oManejador=NEWOBJECT("miManejador")
oManejador.PICTURE = "Logo.Jpg"
oManejador.STRETCH = 1
oManejador.VISIBLE = .T.
oManejador.WIDTH = _SCREEN.WIDTH
oManejador.HEIGHT = _SCREEN.HEIGHT

BINDEVENT(_SCREEN,"Resize",oManejador,"miresize")
DEFINE CLASS miManejador AS image &&Custom &&Session
PROCEDURE miresize
oManejador.WIDTH = _SCREEN.WIDTH
oManejador.HEIGHT = _SCREEN.HEIGHT
RETURN
ENDDEFINE