>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!!