Here is my version of it, I just forgot the time I wrote my reply to dig for it.

************************************************************
*  FUNCTION CopyVisualClass()
function CopyVisualClass
lparameters tcClassName, tcNewClassName, tcClassLib
local lcClassName, lcNewClassName, lcClassLib

if vartype(m.tcClassName) <> "C" 
	lcClassName = inputbox('Type class name', 'Choose class to copy', 'DefaultClass')
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', 'NewClassName')
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