[*]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