*** SUBCLASS.PRG
LPARA cOldClass,cOldClassLib,cNewClass,cNewClassLib
SET SAFETY OFF
CREATE CLASS &cNewClass OF &cNewClassLib AS &cOldClass FROM &cOldClassLib NOWAIT
KEYB "{CTRL+W}"
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