Imports System.Runtime.InteropServices
 
Public Class Form1
 
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) _
      Handles Button1.Click
 
        Dim a As String = StartCalc_Clicked()
    End Sub
 
    Declare Unicode Function StartJob Lib "calcdll.dll" (ByRef p1 As Double, _
      ByRef p2 As Object, ByRef p3 As Object) As Boolean
    Const NINPUTDATA = 100
    Const NRESDATA = 100
    Const NOPTIONSDATA = 1
    Const P60 = 1
    'where "c:\calcsoft\calcdll\debug\calcdll.dll" is the absolute path of 
    ' calcdll.dll
    'Usage()
    Function StartCalc_Clicked()
        Dim bErr As Boolean
        Dim aInputData(NINPUTDATA) As Double
        Dim aResult(NRESDATA) As Object
        Dim aOptions(NOPTIONSDATA) As Object
        On Error GoTo StartCalc_exit
        ' Collect data from input mask
        'DOCUMENT DBM Dll VERSIONVer. 1.5 PAG 7 di 43
 
        aInputData(0) = 1 ' coil type P60
        aInputData(1) = 32 ' inlet temperature 32°C
        aInputData(2) = 50 ' 50% R.H.
        aInputData(5) = 2000 ' air volume 2000 Sm3/h
        aInputData(14) = 4 ' 4 Rows
        aInputData(15) = 10 ' 10 tubes per row
        aInputData(16) = 2 ' fin pitch 2.0 mm
        aInputData(17) = 4 ' 4 circuits
        aInputData(18) = 500 ' coil length 500 mm
        aInputData(26) = 7 ' water inlet temp 7 °C
        aInputData(27) = 12 ' water outlet temp 12 °C
 
        Dim test As Double = aInputData(5)
 
        StartJob(aInputData(0), aResult(0), aOptions(0))
 
        ' show data results
        ' ShowResult(aResult)
        MsgBox("Selected coil" & aResult(29)) ' Simple result processing
 
        Return aResult(29)
 
        Exit Function
StartCalc_exit:
        MsgBox("Errors during calculation")
        Resume Next
    End Function
 
End Class