Tente avec cette macro ( elle enlève le dernier paramètre )
#define CreateObject(%0,%1,%2,%3,%4,%5,%6,%7); CreateStreamObject(%0,%1,%2,%3,%4,%5,%6);
Et aussi, la ligne 38 peut être supprimée, soit tu ouvre le .inc et tu le fais,
soit tu DL ma pièce jointe