各路高手，VB调用delphi所写的dll,参数怎样传递

Question

dll原形如下：funtion foo(ihdc:THandle) stdcall;export;
var
// 以下略
begin
bitmap1:=Tbitmap.create;
bitmap1.canvas.handel=ihdc;
// 处理该位图
end在delphi中调用
foo(Image1.canvas.handel);
可以正确传递该句柄给DLL中的bitmap1.canvas.handle及结果正确
 
但在VB中
声明
Private Declare Function foo Lib "test.dll" (ByVal ihdc As Long)
调用
foo(picturebox1.picture.handle)
但此句柄送到DLL中的bitmap1.canvas.handle却得不到正确的结果。
以上的dll,delphi,vb程序均可编译和运行，唯在vb中调用DLL则结果错误。
各位高手
picturebox.handle该怎样才能正确传动bitmap1.canvas.handel

Answer 1

dll原形如下：funtion foo(ihdc:THandle) stdcall;export;
var
// 以下略
begin
bitmap1:=Tbitmap.create;
bitmap1.handel=ihdc;//change this like;
// 处理该位图
end

Answer 2

在delphi中调用
foo(image1.Picture.Bitmap.Handle ;);

Answer 3

可能是比较麻烦的问题吧？VB中编写DLL和调用DLL是件很麻烦的事情，反正我是没有一次成功过，查资料也查不出原因。
听别人说，VB中写的DLL是伪DLL，我也不是太清楚，只能帮你UP了。再次讨厌VB~~~~~

Answer 4

问题已解决，vb调用错误，
该改为
foo(picturebox1.hdc)