>Hi Max
>
>>Plz suggest me a subclass tool
>>
>>The tool should handle all files in a master-folder.
>>
>>Copy all class lib and forms to destination folder, then
>>
>>rename them with a prefix.
>
>Try and look for DupClass here in the downloads or Google for it.


I think it's not really complicated..... and i had try....

Thank for your kindness. :)


code of cmdGo.click

LOCAL nVCX,aFile[1],aCls[1],cTmp,nClass

SET TEXTMERGE ON NOSHOW 

IF ADIR(aFile,thisform.txtSource.Value + '*.VCX')=0
	MESSAGEBOX('no class lib found',48)
	RETURN
ENDIF   

FOR nVCX=1 TO ALEN(aFile,1)
	FOR nClass=1 TO AVCXCLASSES(aCls ,aFile[nVCX,1])
		CLEAR TYPEAHEAD 
		
		TEXT TO cTmp PRETEXT 15 
			CREATE CLASS <<aCls[nClass,1]>> OF <<thisform.txtDest.Value+JUSTSTEM(aFile[nVCX,1])>>
				 as <<aCls[nClass,1]>> FROM <<aFile[nVCX,1]>> NOWAIT 
		ENDTEXT 
		&cTmp
		
		RELEASE WINDOW "Properties"
		RELEASE WINDOW "FORM CONTROLS"
		KEYBOARD '{ctrl+w}' 
		doevents
	NEXT 	
NEXT 
doevents