Thanks, Rodolfo. I've saved your program and will look more closely at it. Since my app is simple at this point, I may just fix the problem manually.

Pete

>Pete,
>
>I've created a simple program to do it. Take a look at this code and change the names of objects, ok?
>

>On Error *
>Use (ThisForm.ArquivoSCX.Value) Alias MyForm
>On Error
>If !Used("MyForm")
>	MessageBox("File SCX not found!",48,"WIZARD")
>	Return .T.
>EndIf
>
>Replace ClassLoc With StrTran(ClassLoc,"objetos","objeto") For Class = "texto"
>Replace ClassLoc With StrTran(ClassLoc,"objetos","objeto"), Class With "campoalfa" For InList(Class,"campo_a","campo")
>Replace ClassLoc With StrTran(ClassLoc,"objetos","objeto"), Class With "camponum" For Class = "campo_n"
>Replace ClassLoc With StrTran(ClassLoc,"objetos","objeto"), Class With "campodata" For Class = "campo_d"
>Replace ClassLoc With StrTran(ClassLoc,"objetos","objeto"), Class With "campoeditor" For Class = "editor"
>Replace ClassLoc With StrTran(ClassLoc,"objetos","objeto") For Class = "combo"
>Replace ClassLoc With StrTran(ClassLoc,"objetos","objeto") For Class = "opcoes"
>Replace ClassLoc With StrTran(ClassLoc,"objetos","objeto") For Class = "botao"
>Replace ClassLoc With StrTran(ClassLoc,"objetos","objeto") For Class = "check"
>Replace ClassLoc With StrTran(ClassLoc,"objetos","objeto") For Class = "recipiente"
>Replace ClassLoc With StrTran(ClassLoc,"objetos","objeto"), Class With "grade" For Class = "grade_a"
>Replace ClassLoc With StrTran(ClassLoc,"objetos","objeto"), Class With "grade" For Class = "grade_m"
>Replace ClassLoc With StrTran(ClassLoc,"objetos","objeto"), Class With "moldura" For Class = "placa"
>Replace ClassLoc With StrTran(ClassLoc,"objetos","objeto"), Class With "moldura" For Class = "linha"
>Replace ClassLoc With "", Class With BaseClass For Class = "lista"
>Replace ClassLoc With "", Class With BaseClass,;
>		Properties With Strtran(Properties,"P01.Name","Page1.Name"),;
>		Properties With Strtran(Properties,"P02.Name","Page2.Name"),;
>		Properties With Strtran(Properties,"P03.Name","Page3.Name"),;
>		Properties With Strtran(Properties,"P04.Name","Page4.Name"),;
>		Properties With Strtran(Properties,"P05.Name","Page5.Name"),;
>		Properties With Strtran(Properties,"P06.Name","Page6.Name"),;
>		Properties With Strtran(Properties,"P07.Name","Page7.Name"),;
>		Properties With Strtran(Properties,"P08.Name","Page8.Name"),;
>		Properties With Strtran(Properties,"P09.Name","Page9.Name"),;
>		Properties With Strtran(Properties,"P10.Name","Page10.Name"),;
>		Properties With Strtran(Properties,"P11.Name","Page11.Name"),;
>		Properties With Strtran(Properties,"P12.Name","Page12.Name"),;
>		Properties With Strtran(Properties,"P13.Name","Page13.Name"),;
>		Properties With Strtran(Properties,"P14.Name","Page14.Name"),;
>		Properties With Strtran(Properties,"P15.Name","Page15.Name"),;
>		Properties With Strtran(Properties,"P16.Name","Page16.Name"),;
>		Properties With Strtran(Properties,"P17.Name","Page17.Name"),;
>		Properties With Strtran(Properties,"P18.Name","Page18.Name"),;
>		Properties With Strtran(Properties,"P19.Name","Page19.Name"),;
>		Properties With Strtran(Properties,"P20.Name","Page20.Name"),;
>		Properties With Strtran(Properties,"P21.Name","Page21.Name"),;
>		Properties With Strtran(Properties,"P22.Name","Page22.Name"),;
>		Properties With Strtran(Properties,"P23.Name","Page23.Name"),;
>		Properties With Strtran(Properties,"P24.Name","Page24.Name"),;
>		Properties With Strtran(Properties,"P25.Name","Page25.Name"),;
>		Properties With Strtran(Properties,"P26.Name","Page26.Name"),;
>		Properties With Strtran(Properties,"P27.Name","Page27.Name"),;
>		Properties With Strtran(Properties,"P28.Name","Page28.Name"),;
>		Properties With Strtran(Properties,"P29.Name","Page29.Name"),;
>		Properties With Strtran(Properties,"P30.Name","Page30.Name"),;
>		Properties With Strtran(Properties,"P31.Name","Page31.Name"),;
>		Properties With Strtran(Properties,"P32.Name","Page32.Name"),;
>		Properties With Strtran(Properties,"P33.Name","Page33.Name"),;
>		Properties With Strtran(Properties,"P34.Name","Page34.Name"),;
>		Properties With Strtran(Properties,"P35.Name","Page35.Name"),;
>		Properties With Strtran(Properties,"P36.Name","Page36.Name"),;
>		Properties With Strtran(Properties,"P37.Name","Page37.Name"),;
>		Properties With Strtran(Properties,"P38.Name","Page38.Name"),;
>		Properties With Strtran(Properties,"P39.Name","Page39.Name");
>	 For Class = "paginas"
>Replace Properties With Strtran(Properties,"fonte_auto","acesso") All
>Replace Properties With Strtran(Properties,"fonte_incluir","acessoi") All
>Replace Properties With Strtran(Properties,"fonte_alterar","acessoa") All
>Replace Properties With Strtran(Properties,"fonte_visualizar","acessov") All
>Replace Properties With Strtran(Properties,"linha_coluna","gradecoluna") All
>Use
>Modify Form (ThisForm.ArquivoSCX.Value)
>Return .T.
>

>[]s!