Изучение основ FreeBasic в сравнении с PowerBasic

#include once "windows.bi"
#include once "win\ole2.bi"
#include once "win\oaidl.bi"
 
Extern CLSID_ADDONE As Const CLSID
Extern IID_IAddone As Const IID
 
Type IAddone As IAddone_
 
Type IAddoneVtbl
    QueryInterface As Function(ByVal this As IAddone Ptr, ByVal riid As Const IID Const Ptr, ByVal ppvObject As any Ptr Ptr) As HRESULT
    AddRef As Function(ByVal this As IAddone Ptr) As ULONG
    Release As Function(ByVal this As IAddone Ptr) As ULONG
    GetTypeInfoCount As Function(ByVal this As IAddone Ptr, ByVal pctinfo As UINT Ptr) As HRESULT
    GetTypeInfo As Function(ByVal this As IAddone Ptr, ByVal iTInfo As UINT, ByVal lcid As LCID, ByVal ppTInfo As ITypeInfo Ptr Ptr) As HRESULT
    GetIDsOfNames As Function(ByVal this As IAddone Ptr, ByVal riid As Const IID Const Ptr, ByVal rgszNames As LPOLESTR Ptr, ByVal cNames As UINT, ByVal lcid As LCID, ByVal rgDispId As DISPID Ptr) As HRESULT
    Invoke As Function(ByVal this As IAddone Ptr, ByVal dispIdMember As DISPID, ByVal riid As Const IID Const Ptr, ByVal lcid As LCID, ByVal wFlags As WORD, ByVal pDispParams As DISPPARAMS Ptr, ByVal pVarResult As VARIANT Ptr, ByVal pExcepInfo As EXCEPINFO Ptr, ByVal puArgErr As UINT Ptr) As HRESULT
    Addone As Function(ByVal this As IAddone Ptr, ByVal X As Long, ByVal pResult As Long Ptr)As HRESULT
end type
 
Type IAddone_
    lpVtbl As IAddoneVtbl Ptr
End Type
 
#define IAddone_QueryInterface(This, riid, ppvObject) (This)->lpVtbl->QueryInterface(This, riid, ppvObject)
#define IAddone_AddRef(This) (This)->lpVtbl->AddRef(This)
#define IAddone_Release(This) (This)->lpVtbl->Release(This)
#define IAddone_GetTypeInfoCount(This, pctinfo) (This)->lpVtbl->GetTypeInfoCount(This, pctinfo)
#define IAddone_GetTypeInfo(This, iTInfo, lcid, ppTInfo) (This)->lpVtbl->GetTypeInfo(This, iTInfo, lcid, ppTInfo)
#define IAddone_GetIDsOfNames(This, riid, rgszNames, cNames, lcid, rgDispId) (This)->lpVtbl->GetIDsOfNames(This, riid, rgszNames, cNames, lcid, rgDispId)
#define IAddone_Invoke(This, dispIdMember, riid, lcid, wFlags, pDispParams, pVarResult, pExcepInfo, puArgErr) (This)->lpVtbl->Invoke(This, dispIdMember, riid, lcid, wFlags, pDispParams, pVarResult, pExcepInfo, puArgErr)
#define IAddone_Addone(this, X, pResult) (this)->lpVtbl->Addone(this, X, pResult)
 
Dim CLSID_ADDONE As Const CLSID = Type(&h5C9FFA61, &hD322, &h4E9F, _
    {&h91, &h65, &h6E, &h0A, &hBD, &h3B, &hCB, &h5D} _
)
Dim IID_IAddone As Const IID = Type(&h196EE916, &h64E2, &h4CE3, _
    {&hA1, &hF9, &hE6, &h18, &hBE, &h50, &hFD, &hB9} _
)