Fred ---
Ta da!!! This is the best way to do it.......
LPARAMETERS cOldLib,cOldClass,cNewLib,cNewClass
SET CLASSLIB TO &cOldLib
oObject=CREATEOBJECT("&cOldClass.")
oObject.SaveAsClass("&cNewLib","&cNewClass")
SET CLASSLIB TO
RETURN
------------------------------------------------
John Koziol, ex-MVP, ex-MS, ex-FoxTeam. Just call me "X"
"When the going gets weird, the weird turn pro" - Hunter Thompson (Gonzo) RIP 2/19/05