>>Hi All:
>>
>>I want to copy a class, not subclass it. How do I do that? VFP doesn't let me SAVE AS when MODIFYing the class in the VCX file.
>>
>>Thanks
>>
>>Yossi
>
>Programmatic way:
>
>

>function CopyVisualClass
>lparameters tcClassName, tcNewClassName, tcClassLib
>local lcClassName, lcNewClassName, lcClassLib
>
>if vartype(m.tcClassName) <> "C" 
>	lcClassName = inputbox('Type class name', 'Choose class to copy', 'QueueAssignmentBar')
>else
>	lcClassName = m.tcClassName	
>endif
>
>if empty(m.lcClassName)
>	return
>endif
>	
>if vartype(m.tcNewClassName) <> "C" 
>	lcNewClassName = inputbox('Type new class name', 'New class Name', 'ScheduleCloseBar')
>else
>	lcNewClassName = m.tcNewClassName	
>endif
>
>if empty(m.lcNewClassName)
>	return
>endif
>
>if vartype(m.tcClassLib) <> "C"
>	lcClassLib = getfile('vcx', 'Select ClassLib', 'Select', 0, 'Select classlibrary to create new class in')
>else
>	lcClassLib = m.tcClassLib	
>endif
>
>if empty(m.lcClassLib)
>	return
>endif
>
>local loException
>try
>	add class (m.lcClassName) to Utilities\TempClassLib overwrite
>
>	rename class (m.lcClassName) of Utilities\TempClassLib to (m.lcNewClassName)
>
>	add class (m.lcNewClassName) of Utilities\TempClassLib to (m.lcClassLib) overwrite
>
>catch to loException
>	=ErrorMsg(m.loException.message)
>endtry
>
>endfunc
>

Thanks and thanks!!