>Hi,
>
>For an object of class 'Olecontrol', looks like aClass() chokes on the parent class:
>
>

>form = CreateObject('form')
>form.AddObject('oleClass_2', 'oleClass_2') && a class derived from Olecontrol needs to be instantiated in a visual container
>
>? AClass(aa, form.oleClass_2), aa && obtained 1: 'OLECLASS_2', expected 3: 'OLECLASS_2', 'OLECLASS_1', 'OLECONTROL'
>
>define class oleClass_2 as oleClass_1
>enddefine
>
>define class oleClass_1 as Olecontrol
>	oleClass = 'Shell.explorer.2'
>enddefine
>

Confirmed, happens with OLECONTROL only.

VFP 9 SP2 (5185)