tiene varios usos
por ejemplo tienes una clase con las generales de un cliente, este ejemplo esta en la ayuda de vfp9
moemployee = CREATEOBJECT('employee')
WITH moemployee
.First_Name = 'John'
.Last_Name = 'Smith'
.Address = '16 Maple Lane'
.HireDate = {^1998-02-16}
ENDWITH
CLEAR
? moemployee.First_Name + ' '
?? moemployee.Last_Name
? moemployee.Address
? moemployee.HireDate
DEFINE CLASS employee AS CUSTOM
First_Name = SPACE(20)
Last_Name = SPACE(20)
Address = SPACE(30)
HireDate = { - - }
ENDDEFINE
por lo general se utiliza para crear o heredar un objeto de una clase u objeto, a veces la hereda de un ocx, dll,fll u cualquir otra parte