Yes,in my case:

Form's Load event
-----------------

thisform.AddProperty('oCA',NULL)
thisform.AddProperty('oCA',NewObject('CAName','CAClassLib'))
if not used(thisform.oCA.Alias)
retu .f.
endif