Jose,

Thanks for your code. I'll take some time to examine the code, since I'm new in OOP.

Gan

>
>That's easy. Here is some code fragment from a Refresh() of an existing app of mine:
>
>

>LOCAL llLocked
>llLocked = thisform.lockScreen
>thisform.lockScreen = .T.
>
>*-- refresh the image
>*-- GoApp.cDefaultDatabase contains the name of the DBC, remove it
>
>IF FILE(SUBSTR(goApp.cDefaultDatabase, 1, RAT("\", goApp.cDefaultDatabase)) + ;
>    "\PICTURES\" + ;
>    v_Pratiquant.cLicenceId + ;
>    ".BMP")
>  this.cPageFrame1.Page1.cImage.Picture = ;
>    SUBSTR(goApp.cDefaultDatabase, 1, RAT("\", goApp.cDefaultDatabase)) + ;
>    "\PICTURES\" + ;
>    v_Pratiquant.cLicenceId + ;
>    ".BMP"
>  this.cPageFrame1.Page1.cImage.Visible = .T.
>ELSE
>  this.cPageFrame1.Page1.cImage.Picture = ""
>  this.cPageFrame1.Page1.cImage.Visible = .F.
>ENDIF
>
>thisform.lockscreen = llLocked
>

>
>José