Francisco,
I downloaded the activex out of curiosity. Did this and worked :

-I created a new form and added the control
-I also added a commandbutton

*Commandbutton.click code
With thisform.Addflow
  .Nodes.Add(400, 200, 1500, 1500)
  .Nodes.Add(2100, 200, 500, 500)
  .Nodes.Add(1600, 1700, 500, 500)
  .Nodes.Add(100, 1700, 500, 500)
  For ix=1 to 4
    .Nodes(ix).Text = ix
  Endfor
  .Nodes(1).OutLinks.Add(.Nodes(2))
  .Nodes(2).OutLinks.Add(.Nodes(3))
  .Nodes(3).OutLinks.Add(.Nodes(4))
  .Nodes(1).OutLinks.Add(.Nodes(4))
  .Nodes(1).OutLinks.Add(.Nodes(3))
  .Nodes(1).Picture(loadpict(getpic()))
Endwith

And it worked.
Cetin

>Thanks Cetin, but i try all issues and dont work any, my last chance is convert the API LoadImage from VB Code to VFP code, thanks in advance (if you can help :-) )
>
>With Best Regards
>
>Francisco Morosini
>
>>>Hello people, well i have a big problem, i expect your help please:
>>>
>>>i download an activex where i need put a picture object reference, BUT the loadpicture dont work with this activex, now, in VB works fine then i make a dll for return the object reference of the VB loadpicture but dont work, send me a error message, change a variant an return a number, i try with Imagelist and dont too, i try with HWND control and dont too, finally i found a function (thanks to Vlad Grynchyshyn) called loadimage,http://www.allapi.net/api/LoadImage.php, the problem is thats function is VB and we dont idea how change this function in VFP code, someone help us please, because we have a dead line for the project and this activex is need for user interface, or maybe someone knows another method for obtain a object variable for an activex control.
>>>
>>>thanks in Advance, really
>>>
>>>Francisco Morosini
>>>
>>>the activex is addflow and is in www.lassalle.com
>>
>>Francisco,
>>VB Activex controls are generally vague with their property, method assignments and picture loading. Could you try if one of these works :
>>
>>

myForm.MyActivex.MyWhatEverCollection(n).Picture = LoadPicture(Getpict())
>>myForm.MyActivex.MyWhatEverCollection(n).Object.Picture = LoadPicture(Getpict())
>>*Assuming you added an imagelist control with name OleImages
>>myForm.MyActivex.MyWhatEverCollection(n).Picture = ;
>>thisform.OleImages.ImageList(1).Picture
>>
>>*And finally - suspect last one would be the first to try with a VB thing < bg >
>>myForm.MyActivex.MyWhatEverCollection(n).Picture(Loadpict(GetPict()))
>>

Cetin