*Classproblem.prg IF !FILE('sub\b2.vcx') DO makeclasses IN classproblem.prg ENDIF DO checkclasses IN classproblem.prg PROCEDURE makeclasses MESSAGEBOX("To the class which appears, add a label with caption 'class 1', fontsize 24 then save the class", 0, "Class Problem") CREATE CLASS baseform OF classes AS FORM CLEAR ALL MESSAGEBOX("Save the following class as is", 0, "Class Problem") CREATE CLASS BASE OF b1 AS baseform FROM classes CLEAR ALL MESSAGEBOX("Change the caption of the next classes label to 'class 2'", 0, "Class Problem") CREATE CLASS BASE OF b2 AS baseform FROM classes CLEAR ALL MD sub MESSAGEBOX("Save the following class as is", 0, "Class Problem") CREATE CLASS BASE OF sub\b1 AS BASE FROM b1 CLEAR ALL MESSAGEBOX("Save the following class as is", 0, "Class Problem") CREATE CLASS BASE OF sub\b2 AS BASE FROM b2 CLEAR ALL PROCEDURE checkclasses MODIFY CLASS BASE OF sub\b1 NOWAIT MESSAGEBOX("sub class b1: you should see 'class 1'", 0, "Class Problem") CLOSE ALL MODIFY CLASS BASE OF sub\b2 NOWAIT MESSAGEBOX("sub class b2: you should see 'class 2'", 0, "Class Problem") CLOSE ALL MODIFY CLASS BASE OF sub\b1 NOWAIT MESSAGEBOX("back to sub class b1: you should see 'class 1' but you see 'class 2'", 0, "Class Problem") CLOSE ALL CLEAR ALL MODIFY CLASS BASE OF sub\b1 NOWAIT MESSAGEBOX("back to sub class b1: you should see 'class 1' and you see 'class 1' because CLEAR ALL was issued", 0, "Class Problem") CLOSE ALL>I Found a strange BUG on VFP 6.0 dn 7.0 (i tried with these versions).