Visual Basic

#include <windows.h>
#include <stdio.h>

int _stdcall CallMe(int *a, int *b)

{ 
char ab[20];

sprintf(ab,"The value of a is %d \n",a);
MessageBox (NULL, ab, "Test DLL", MB_OK); 
b = a;

return 0; 

}

LIBRARY builderDll 
EXPORTS 
CallMe (int *a, int* b) @1

Private Declare Function CallMe Lib "C:\PMARModif\builderDll\Debug\builderDll.dll" (ByVal a As Long, ByRef b As Long) As Long
Private Sub Command1_Click()

Dim a As Integer
Dim b As Integer
a = 10

CallMe a, b

Form1.Print b
End Sub

'    int nalg = 10
'    int* score = new int[nalg];
'
'    for (int n = 0 ; n < nalg ; n++) score[n] = 10*(n+1);
'
'
'    // call the function
'
'    int fusion_score;
'
'    Fusion_Method(&nalg, score, &fusion_score);