Hi,
Short code ... It might looks like

lcVCX = GETFILE("VCX")
AVCXCLASSES(aCls,lcVCX)
FOR Lni=1 TO ALEN(aCls,1)
lcClassName = aCls[lni,1]
Try
MODIFY CLASS (lcClassName) OF (lcVCX) NOWAIT
CATCH WHEN .t.
?"Can't open class "+lcClassname+" of "+JUSTFNAME(lc)
EndTry
ENDFOR

Note: If parent class already open for edit, then Modify class call error.

>Hi all
>
>How to write a small prg to take a vcx and open all it's classes one by one for editing.
>
>Please advise.