Взаимодействие с другими языками

Code:

Attribute VB_Name = "Module1"

Declare Function TestMin Lib "c:\windows\system\NoelSArr"

  (Nums As Variant) As Integer

Code:

Dim A As Variant

Private Sub Command1_Click()

A = Array(4, 3)

MsgBox (TestMin(A))

End Sub

Code:

library NoelSArray;

.

.

function TestMin(const Nums: Variant): integer; export; stdcall;

var

p1: Variant;

begin

p1 := VarArrayCreate([0, 1], VT_I4);

p1:= Nums;

if (p1[0] < p1[1]) then

  result:= p1[0]

else

  Result:= p1[1];

end;