DLL et passage de structure

Bonjour,

je dois envoyer des données issues d'une application ecrite en VB6 a une Dll
MFC. Pour ca j''utilise la structure VB suivante :

Private Type TDATAGLDS
CardID As String * 17
NoIssuer As Integer
Conf As Byte
Category As Byte
Resto As Byte
Luggage As Byte
CloakRoom As Byte
Country As String * 24
LastName As String * 29
FirstName As String * 29
Company As String * 29
NbClothes As Byte
CKRoomID1 As Integer
CKRoomID2 As Integer
CKRoomID3 As Integer
CKRoomID4 As Integer
NbLuggage As Byte
LuggageID1 As Integer
LuggageID2 As Integer
LuggageID3 As Integer
LuggageID4 As Integer
BarCode39 As String * 128
PdfPath As String * 255
End Type

ce qui donne du coté de la DLL :

#pragma pack( push, 4)
typedef struct
{
BYTE CardID[17]; // "ID card"
BYTE NoIssuer[2]; // Numero Identifiant
BYTE Conf; // Droits pour conference
BYTE Category; // Categorie (Delegate, Press, Speaker)
BYTE Resto; // Droits pour Resto
BYTE Luggage; // Malette
BYTE CloakRoom; // Vestiaire
BYTE Country[24]; // Pays
BYTE LastName[29]; // Nom
BYTE FirstName[29]; // Prenom
BYTE Company[29]; // Société
BYTE NbClothes; // Nb Vetements
BYTE CKRoomID1[2]; // Vetement ID1
BYTE CKRoomID2[2]; // Vetement ID2
BYTE CKRoomID3[2]; // Vetement ID3
BYTE CKRoomID4[2]; // Vetement ID4
BYTE NbLuggage; // Nb Bagages
BYTE LuggageID1[2]; // Bagage ID1
BYTE LuggageID2[2]; // Bagage ID2
BYTE LuggageID3[2]; // Bagage ID3
BYTE LuggageID4[2]; // Bagage ID4
BYTE BarCode39[128]; // Valeurs du BarCode 39
BYTE PdfPath[255]; // Chemin du bitmap PDF
}DATAGLDS;
#pragma pack( pop )



et la fonction de la dll ci dessous :


int __stdcall TransferData(DATAGLDS * pData){

CString csTmp;
csTmp.Format( _T("CardID=%s\nLast Name=%s\nFirst Name=%s\nConf=0x%x\n"),
pData->CardID,
pData->LastName,
pData->FirstName,
pData->Conf);


AfxMessageBox(csTmp);
}

que je declare comme ca en VB : Private Declare Function TransferData Lib
"DataGLDS.dll" (data As TDATAGLDS) As Long

Mon souci est que losque je fais ca :

Dim data As TDATAGLDS

data.CardID = "Test"
data.LastName = "SMITH"
data.FirstName = "John"

TransferData data

Et bien j'ai bien le MessageBox de la Dll qui s'affiche mais qui contient
une chaine vide pour le champ LastName.



Please Help