VB调用delphi的dll出现个问题

Question

********dll代码：library Project1;uses
  Unit1 in 'Unit1.pas';{$R *.res}
exports test;begin
end.*********Unit1.pas代码
unit Unit1;interfaceuses windows;procedure test(hwnd:longint);stdcall;implementation
procedure test(hwnd:longint);stdcall;
begin
messagebox(hwnd,'测试Dll','标题',64);
end;
end.**********VB中的声明和调用Private Declare Sub test Lib "Project1.dll" (a As Long)Private Sub Command1_Click()
test (Me.hWnd)
End Sub问题就是那个句柄是错的，导致消息框弹不出来！怎么回事

Answer 1

在VB当中使用下列方法声明才行:
Private Declare Sub test Lib "Project1.dll" (ByVal a As Long)Private Sub Command1_Click()
test (Me.hWnd)
End Sub

Answer 2

否则传递过去的值永远是1242068
VB的ByVal相当于Delphi等当中的const