format PE GUI 4.0
entry Main

CLASSES_DATA_MOVEABLE equ ; mark classes data as moveable

 ; FASM includes
 include "win32a.inc"

 ; classes package includes
 include "..\..\Classes Package\ClassesCfg.inc"
 include "..\..\Classes Package\ClassesMCode.inc"
 include "..\..\Classes Package\ClassesCore 1.8.inc"
 include "..\..\Classes Package\ClassesCode.inc"

; declare some simple class
class TIndex

 field Index  : DWORD = 0 

 ; suppose we have 2 functions to work with Index
 function Inc
 ; just for example - let it be virtual
 virtual_function Dec

endclass

; code section
section '.flat' code readable executable

; implement TIndex functions

proc TIndex.Inc this

 ; increment our object index 
 mov eax,[this]
 inc [eax + TIndex.Index]
 ret
endp ; { TIndex.Inc } 

proc TIndex.Dec this

 ; decrement our object index
 mov eax,[this]
 dec [eax + TIndex.Index]
 
 ret
endp ; { TIndex.Dec } 

; ******************   PROGRAMM ENTRY POINT   ******************
proc Main

 ; make calls of both TIndex functions
 ; this is call of static function of object  
 objfcall IndObj->Inc() ; increment index
 ; make next call via supposed "untyped" pointer to object (just for example)
 ; this is call of virtual function of object
 mov eax,IndObj
 clsfcall TIndex(eax)->Dec() ; decrement index

 ; let see index value after calls
 ; it will be zero
 mov ecx,[IndObj.Index]

; exit process
 invoke ExitProcess, NULL
endp

; data section
section '.data' data readable writeable

; classes data in this case consist of TIndex vtable
; this vtable is of only one TIndex.Dec function address
insert_classes_data ; put classes data here

; declare static instance of our TIndex
; it will contain pointer to TIndex vtable
; and value of Index = 0
IndObj  TIndex

;*********************   IMPORTS   ***********************
section '.import' import data readable writeable
;align 16
;data import

 library kernel32,           'kernel32.dll'

 include "apia\kernel32.inc"

;end data

 classes_finalize ; finalize classes

    

...if next code is what you are asking about