新人求教，VB如何调用这个DLL
function EDebtMoney(H: THandle):integer;
stdcall; { 指定调用协议 }


implementation
//-------------------DLL入口------------------------------//
Function EDebtMoney(H: THandle):integer;
begin
//Application.Handle := H;
MySelect := 0;
with TForm1.Create(Application) do try
KeyPreview :=True;
ShowModal;
Result := MySelect ;
finally
Free; { 调用结束时销毁窗口 }
end;
end;
[解决办法]
早加载模式,模块中定义:

Declare Function EDebtMoney Lib "你的dll名称" (H As Long) As Long