新人求教，VB如何调用这个DLL

Question

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;

Answer 1

早加载模式,模块中定义:
Declare Function EDebtMoney Lib "你的dll名称" (H As Long) As Long调用方法和普通函数一样.