type SmallStruct
  A as byte
  B as byte
  C as byte
  D as byte
end type

type BigStruct
  A as long
  B as long
end type

function AddSmall naked ( byval tParms as SmallStruct ) as byte
  asm
    mov al,[esp+4]
    add al,[esp+5]
    add al,[esp+6]
    add al,[esp+7]
    ret 4
  end asm
end function

function AddBig naked ( tParms as BigStruct ) as long
  asm
    mov edx, [esp+4]
    mov eax,[edx]
    add eax,[edx+4]
    ret 4
  end asm
end function

print AddSmall( type(100,20,5,-1) )
print AddBig( type(5000,200) )
sleep