[*]Profan

Class Test = x%%,Name@,Delete@,Test@

Proc Test.Test

    Parámetros x%,y%
    .x% = x%
    .y% = y%

ENDPROC

Proc Test.Name

    Parámetros Me#
    Imprimir ClassOf(Me#)

ENDPROC

Proc Test.Delete

    Parámetros Me#
    Disponer Me#
    'Disponer Test

ENDPROC

Var Test# = New(Test,4,5)

With Test#

    Imprimir .x%,.y%

EndWith

Imprimir Test#.Name(Test#)
Test#.Delete(Test#)
Imprimir SizeOf(Test#)
Case SizeOf(Test#):Disponer Test#
Imprimir SizeOf(Test#)
WaitInput