delphi如何写dll给vb调用? ( 积分: 10 )

知道者,提供一个例子,谢谢啊.

library MinMax;
function Min(X, Y: Integer): Integer;
stdcall;
begin
if X < Y then
Min := X else
Min := Y;
end;
function Max(X, Y: Integer): Integer;
stdcall;
begin
if X > Y then
Max := X else
Max := Y;
end;
exports
Min,
Max;
begin
end.