Clarion - Cambiar imagen al pasar el puntero por dicha imagen

Ubicacion=''

If Self.Request = ChangeRecord or Self.Request = DeleteRecord

    ?Image1{Prop:NoWidth} = 1

    ?Image1{Prop:NoHeight} = 1

    FOT:DNI=DAT:DNI_Numero    !   cargo el campo para leer

    Get(Fotos, FOT:Por_DNI)        !  leo por dni

    If ErrorCode() Then Stop('Error buscando imagen de Archivo Fotos - Error Nº: ' & ErrorCode()).

    ?Image1{PROP:ImageBlob} = FOT:Imagen{PROP:Handle}    !  acá cargo la imagen

    Ancho$ = ?Image1{Prop:Width}

    Alto$ = ?Image1{Prop:Height}

    MaxAncho$ = ?Region1{Prop:Width}

    MaxAlto$ = ?Region1{Prop:Height}

    ?Image1{Prop:Width} = MaxAncho$

    ?Image1{Prop:Height} = MaxAncho$ * Alto$ / Ancho$

    If ?Image1{Prop:Height} > MaxAncho$

        ?Image1{Prop:Height} = MaxAncho$

        ?Image1{Prop:Width}=MaxAncho$ * Ancho$ / Alto$

    .

    Display(?Image1)