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!