[*]Profan

Class Test = x%,y%,name@,Delete@,Test@

Proc Test.Test

    Parameters x%,y%
    .x% = x%
    .y% = y%

ENDPROC

Proc Test.name

    Parameters Me#
    Print ClassOf(Me#)

ENDPROC

Proc Test.Delete

    Parameters Me#
    Dispose Me#
    'Dispose Test

ENDPROC

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

With Test#

    Print .x%,.y%

EndWith

Print Test#.name(Test#)
Test#.Delete(Test#)
Print SizeOf(Test#)
Case SizeOf(Test#):Dispose Test#
Print SizeOf(Test#)
WaitInput