Pab;o,

I'm not sure why you would need such program because you need to do that only once. Anyway, you can use ALANGUAGE() function to get list of VFP base classes. The rest is easy.

DIMENSION laList[1]
Alanguage(laList,3)
ERASE mylib.vc?

FOR i=1 TO ALEN(laList)
	lcClass = laList[i]
	IF Upper(lcClass) = "OLE"  && Exclude some classes from subclassing
		LOOP
	ENDIF
	llError = .F.
	ON ERROR llError = .T.
	CREATE CLASS ("my" + lcClass ) OF mylib AS (lcClass) NOWAIT
        ON ERROR
	IF llError  && The class cannot be subclassed visualy
		LOOP
	ENDIF 
	KEYBOARD "{CTRL+W}" PLAIN 
	DOEVENTS
ENDFOR

>Ms. Tamar Granor wrote a neat utility to facilitate the subclassing of classes in class libraries. Let me add my thanks to so many others.
>
>I would like to know if this utility program has been modified to allow similar functionality with regards to base classes within VFP (7 and 8), or if there is another utility or program around that one can use to subclass base classes within VFP. Anyone?