Done! SMASH!!! it works just fine,
Inside a module: sub LoadDll(byref Calcdll as calcdll, location as variant, number as variant) dim i as int16 dim j as Double
i= location j =number call calcdll.inputinfo(i,j) end sub
in the form: Dim calc as calcDLL180512.calcDLL calc = new calcDLL180512.calcDLL call loaddll(calc,0,1) call loaddll(calc,1,32) call loaddll(calc,2,50) call loaddll(calc,5,2000) call loaddll(calc,14,4) call loaddll(calc,15,10) call loaddll(calc,16,2) call loaddll(calc,17,4) call loaddll(calc,18,500) call loaddll(calc,26,7) call loaddll(calc,27,12) call loaddll(calc,51,0) calc.RunCalc
Msgbox("Result: " + CALC.Result)'
simple when you think about it.
|