Thanks Cetin,

I was preparing to to noodle it out myself - and you step in and make my life easier. Much appreciated!

Terry
www.r6solutions.com/

>>If there is a work around for the VFP9 under Win7 64 "PictureVal" issue, that answer would be appreciated. If not I need to develop a workaround by determining the OS my application is installed under.
>>
>>Should anyone have VFP 9 installed on Win 7 64bit I would appreciate a "paste" back of the OS() return string.
>>
>>Appreciated ..
>>Terry
>>http://r6solutions.com/
>
>OS(3) = "6"
>OS(4) = "1"
>OS(5) = "7600"
>
>I am using VFP SP1 and I created a workaround myself by creating a class based on image. It is simple and looks like this:
>
>

>Define Class myImage As Image
>  Procedure PictureVal_Assign
>    Lparameters vNewVal
>    If Val(Os(3)) < 6
>      This.PictureVal = m.vNewVal
>    Else
>      If !Empty(This.Tag)
>        Erase (This.Tag)
>      Endif
>      This.Tag = Forcepath(Sys(2015)+'.pic',Sys(2023))
>      Strtofile(m.vNewVal,This.Tag)
>      This.Picture = This.Tag
>    Endif
>  Endproc
>  Procedure Destroy
>    If !Empty(This.Tag)
>      Erase (This.Tag)
>    Endif
>  Endproc
>Enddefine

>Cetin