Option Strict Off
Option Explicit On

Module vbamod

    ' this file is part of Prode Properties, Copyright Roberto Paron, www.prode.com
    Public Declare Function AOpen Lib "pppx.dll" () As Long
    Public Declare Function ASave Lib "pppx.dll" () As Long
    Public Declare Function edS Lib "pppx.dll" (ByVal str As Long) As Long
    Public Declare Function edSS Lib "pppx.dll" () As Long


    Public Declare Function getErrFlag Lib "ppp.dll" () As Long
    Public Declare Function setErrFlag Lib "ppp.dll" (ByVal state As Long) As Long
    Public Declare Function defErrMsg Lib "ppp.dll" (ByVal state As Long) As Long
    Public Declare Function ErrMsg Lib "ppp.dll" () As IntPtr
    Public Declare Function isSDef Lib "ppp.dll" (ByVal str As Long) As Long
    Public Declare Function getUMC Lib "ppp.dll" (ByVal UM As Long) As Long
    Public Declare Function setUMC Lib "ppp.dll" (ByVal UM As Long, ByVal sel As Long) As Long
    Public Declare Function getUMN Lib "ppp.dll" (ByVal UM As Long) As Long
    Public Declare Function UMCR Lib "ppp.dll" (ByVal val As Double, ByVal a As Long, ByVal b As Long) As Double
    Public Declare Function UMCS Lib "ppp.dll" (ByVal val As Double, ByVal a As Long, ByVal b As Long) As Double
    Public Declare Function UMRAU Lib "ppp.dll" (ByVal UM As Long) As Long
    Public Declare Function getUMS Lib "ppp.dll" (ByVal UM As Long, ByVal sel As Long) As IntPtr
    Public Declare Function getSUMS Lib "ppp.dll" (ByVal UM As Long) As IntPtr
    Public Declare Function getPatm Lib "ppp.dll" () As Double
    Public Declare Function StrN Lib "ppp.dll" (ByVal str As Long) As IntPtr
    Public Declare Function StrZv Lib "ppp.dll" (ByVal str As Long) As Double
    Public Declare Function EStrZv Lib "ppp.dll" (ByVal str As Long, ByVal t As Double, ByVal p As Double) As Double
    Public Declare Function StrMw Lib "ppp.dll" (ByVal str As Long) As Double
    Public Declare Function StrGMw Lib "ppp.dll" (ByVal str As Long) As Double
    Public Declare Function EStrGMw Lib "ppp.dll" (ByVal str As Long, ByVal t As Double, ByVal p As Double) As Double
    Public Declare Function StrLMw Lib "ppp.dll" (ByVal str As Long) As Double
    Public Declare Function EStrLMw Lib "ppp.dll" (ByVal str As Long, ByVal t As Double, ByVal p As Double) As Double
    Public Declare Function setSB Lib "ppp.dll" (ByVal cc As Long, ByVal t As Double, ByVal t As Double) As Long
    Public Declare Function StrGSS Lib "ppp.dll" (ByVal str As Long) As Double
    Public Declare Function EStrGSS Lib "ppp.dll" (ByVal str As Long, ByVal t As Double, ByVal p As Double) As Double
    Public Declare Function setHB Lib "ppp.dll" (ByVal cc As Long, ByVal t As Double, ByVal t As Double) As Long
    Public Declare Function StrGH Lib "ppp.dll" (ByVal str As Long) As Double
    Public Declare Function StrSGH Lib "ppp.dll" (ByVal str As Long) As Double
    Public Declare Function StrLH Lib "ppp.dll" (ByVal str As Long) As Double
    Public Declare Function StrSLH Lib "ppp.dll" (ByVal str As Long) As Double
    Public Declare Function StrSH Lib "ppp.dll" (ByVal str As Long) As Double
    Public Declare Function StrSSH Lib "ppp.dll" (ByVal str As Long) As Double
    Public Declare Function StrGICp Lib "ppp.dll" (ByVal str As Long) As Double
    Public Declare Function StrGCp Lib "ppp.dll" (ByVal str As Long) As Double
    Public Declare Function EStrGCp Lib "ppp.dll" (ByVal str As Long, ByVal t As Double, ByVal p As Double) As Double
    Public Declare Function StrLCp Lib "ppp.dll" (ByVal str As Long) As Double
    Public Declare Function EStrLCp Lib "ppp.dll" (ByVal str As Long, ByVal t As Double, ByVal p As Double) As Double
    Public Declare Function StrSCp Lib "ppp.dll" (ByVal str As Long) As Double
    Public Declare Function EStrSCp Lib "ppp.dll" (ByVal str As Long, ByVal t As Double, ByVal p As Double) As Double
    Public Declare Function StrGCv Lib "ppp.dll" (ByVal str As Long) As Double
    Public Declare Function EStrGCv Lib "ppp.dll" (ByVal str As Long, ByVal t As Double, ByVal p As Double) As Double
    Public Declare Function StrLCv Lib "ppp.dll" (ByVal str As Long) As Double
    Public Declare Function EStrLCv Lib "ppp.dll" (ByVal str As Long, ByVal t As Double, ByVal p As Double) As Double
    Public Declare Function StrLSS Lib "ppp.dll" (ByVal str As Long) As Double
    Public Declare Function EStrLSS Lib "ppp.dll" (ByVal str As Long, ByVal t As Double, ByVal p As Double) As Double
    Public Declare Function StrMSS Lib "ppp.dll" (ByVal str As Long) As Double
    Public Declare Function EStrMSS Lib "ppp.dll" (ByVal str As Long, ByVal t As Double, ByVal p As Double) As Double
    Public Declare Function StrGIC Lib "ppp.dll" (ByVal str As Long) As Double
    Public Declare Function EStrGIC Lib "ppp.dll" (ByVal str As Long, ByVal t As Double, ByVal p As Double) As Double
    Public Declare Function StrLIC Lib "ppp.dll" (ByVal str As Long) As Double
    Public Declare Function EStrLIC Lib "ppp.dll" (ByVal str As Long, ByVal t As Double, ByVal p As Double) As Double
    Public Declare Function StrGVE Lib "ppp.dll" (ByVal str As Long) As Double
    Public Declare Function EStrGVE Lib "ppp.dll" (ByVal str As Long, ByVal t As Double, ByVal p As Double) As Double
    Public Declare Function StrLVE Lib "ppp.dll" (ByVal str As Long) As Double
    Public Declare Function EStrLVE Lib "ppp.dll" (ByVal str As Long, ByVal t As Double, ByVal p As Double) As Double
    Public Declare Function StrGJT Lib "ppp.dll" (ByVal str As Long) As Double
    Public Declare Function EStrGJT Lib "ppp.dll" (ByVal str As Long, ByVal t As Double, ByVal p As Double) As Double
    Public Declare Function StrLJT Lib "ppp.dll" (ByVal str As Long) As Double
    Public Declare Function EStrLJT Lib "ppp.dll" (ByVal str As Long, ByVal t As Double, ByVal p As Double) As Double
    Public Declare Function StrH Lib "ppp.dll" (ByVal str As Long) As Double
    Public Declare Function EStrH Lib "ppp.dll" (ByVal str As Long, ByVal t As Double, ByVal p As Double) As Double
    Public Declare Function StrGS Lib "ppp.dll" (ByVal str As Long) As Double
    Public Declare Function StrSGS Lib "ppp.dll" (ByVal str As Long) As Double
    Public Declare Function StrLS Lib "ppp.dll" (ByVal str As Long) As Double
    Public Declare Function StrSLS Lib "ppp.dll" (ByVal str As Long) As Double
    Public Declare Function StrSS Lib "ppp.dll" (ByVal str As Long) As Double
    Public Declare Function StrSSS Lib "ppp.dll" (ByVal str As Long) As Double
    Public Declare Function StrS Lib "ppp.dll" (ByVal str As Long) As Double
    Public Declare Function EStrS Lib "ppp.dll" (ByVal str As Long, ByVal t As Double, ByVal p As Double) As Double
    Public Declare Function StrMDt Lib "ppp.dll" (ByVal str As Long) As Double
    Public Declare Function BPF Lib "ppp.dll" (ByVal str As Long, ByVal t As Double) As Double
    Public Declare Function DPF Lib "ppp.dll" (ByVal str As Long, ByVal t As Double) As Double
    Public Declare Function LfTF Lib "ppp.dll" (ByVal str As Long, ByVal p As Double, ByVal lf As Double) As Double
    Public Declare Function LfPF Lib "ppp.dll" (ByVal str As Long, ByVal t As Double, ByVal lf As Double) As Double
    Public Declare Function PfPF Lib "ppp.dll" (ByVal str As Long, ByVal p As Double, ByVal pf As Double, ByVal state As Long, ByVal Pos As Long) As Double
    Public Declare Function PfTF Lib "ppp.dll" (ByVal str As Long, ByVal t As Double, ByVal pf As Double, ByVal state As Long, ByVal Pos As Long) As Double
    Public Declare Function SPF Lib "ppp.dll" (ByVal str As Long, ByVal pout As Double, ByVal ds As Double, ByVal et As Double) As Double
    Public Declare Function STF Lib "ppp.dll" (ByVal str As Long, ByVal tout As Double, ByVal ds As Double, ByVal ep As Double) As Double
    Public Declare Function HPF Lib "ppp.dll" (ByVal str As Long, ByVal pout As Double, ByVal dh As Double, ByVal et As Double) As Double
    Public Declare Function HTF Lib "ppp.dll" (ByVal str As Long, ByVal tout As Double, ByVal dh As Double, ByVal ep As Double) As Double
    Public Declare Function VPF Lib "ppp.dll" (ByVal str As Long, ByVal pout As Double, ByVal dh As Double, ByVal et As Double) As Double
    Public Declare Function VTF Lib "ppp.dll" (ByVal str As Long, ByVal tout As Double, ByVal dh As Double, ByVal ep As Double) As Double
    Public Declare Function HVF Lib "ppp.dll" (ByVal str As Long, ByVal tout As Double, ByVal dh As Double, ByVal ep As Double) As Long
    Public Declare Function SVF Lib "ppp.dll" (ByVal str As Long, ByVal pout As Double, ByVal dh As Double, ByVal et As Double) As Long
    Public Declare Function HSF Lib "ppp.dll" (ByVal str As Long, ByVal tout As Double, ByVal dh As Double, ByVal ep As Double) As Long
    Public Declare Function setOp Lib "ppp.dll" (ByVal str As Long, ByVal t As Double, ByVal p As Double) As Long
    Public Declare Function setSOp Lib "ppp.dll" (ByVal str As Long) As Long
    Public Declare Function Divi Lib "ppp.dll" (ByVal str1 As Long, ByVal str2 As Long, ByVal w As Double) As Long
    Public Declare Function MixF Lib "ppp.dll" (ByVal str1 As Long, ByVal str2 As Long, et As Double) As Long
    Public Declare Function LSep Lib "ppp.dll" (ByVal str1 As Long, ByVal str2 As Long) As Long
    Public Declare Function GSep Lib "ppp.dll" (ByVal str1 As Long, ByVal str2 As Long) As Long
    Public Declare Function VLLSep Lib "ppp.dll" (ByVal str1 As Long, ByVal str2 As Long, ByVal str3 As Long, ByVal str4 As Long) As Long
    Public Declare Function PSep Lib "ppp.dll" (ByVal str1 As Long, ByVal ph As Long, ByVal str3 As Long) As Long
    Public Declare Function StrFML Lib "ppp.dll" (ByVal str As Long) As Double
    Public Declare Function EStrFML Lib "ppp.dll" (ByVal str As Long, ByVal t As Double, ByVal p As Double) As Double
    Public Declare Function StrFMH Lib "ppp.dll" (ByVal str As Long) As Double
    Public Declare Function EStrFMH Lib "ppp.dll" (ByVal str As Long, ByVal t As Double, ByVal p As Double) As Double
    Public Declare Function StrHC Lib "ppp.dll" (ByVal str As Long) As Double
    Public Declare Function EStrHC Lib "ppp.dll" (ByVal str As Long, ByVal t As Double, ByVal p As Double) As Double
    Public Declare Function StrLV Lib "ppp.dll" (ByVal str As Long) As Double
    Public Declare Function EStrLV Lib "ppp.dll" (ByVal str As Long, ByVal t As Double, ByVal p As Double) As Double
    Public Declare Function StrGV Lib "ppp.dll" (ByVal str As Long) As Double
    Public Declare Function EStrGV Lib "ppp.dll" (ByVal str As Long, ByVal t As Double, ByVal p As Double) As Double
    Public Declare Function StrV Lib "ppp.dll" (ByVal str As Long) As Double
    Public Declare Function EStrV Lib "ppp.dll" (ByVal str As Long, ByVal t As Double, ByVal p As Double) As Double
    Public Declare Function StrLD Lib "ppp.dll" (ByVal str As Long) As Double
    Public Declare Function EStrLD Lib "ppp.dll" (ByVal str As Long, ByVal t As Double, ByVal p As Double) As Double
    Public Declare Function StrSD Lib "ppp.dll" (ByVal str As Long) As Double
    Public Declare Function EStrSD Lib "ppp.dll" (ByVal str As Long, ByVal t As Double, ByVal p As Double) As Double
    Public Declare Function StrGD Lib "ppp.dll" (ByVal str As Long) As Double
    Public Declare Function EStrGD Lib "ppp.dll" (ByVal str As Long, ByVal t As Double, ByVal p As Double) As Double
    Public Declare Function StrLC Lib "ppp.dll" (ByVal str As Long) As Double
    Public Declare Function EStrLC Lib "ppp.dll" (ByVal str As Long, ByVal t As Double, ByVal p As Double) As Double
    Public Declare Function StrGC Lib "ppp.dll" (ByVal str As Long) As Double
    Public Declare Function EStrGC Lib "ppp.dll" (ByVal str As Long, ByVal t As Double, ByVal p As Double) As Double
    Public Declare Function StrST Lib "ppp.dll" (ByVal str As Long) As Double
    Public Declare Function EStrST Lib "ppp.dll" (ByVal str As Long, ByVal t As Double, ByVal p As Double) As Double
    Public Declare Function StrLf Lib "ppp.dll" (ByVal str As Long) As Double
    Public Declare Function EStrLf Lib "ppp.dll" (ByVal str As Long, ByVal t As Double, ByVal p As Double) As Double
    Public Declare Function setValidSop Lib "ppp.dll" (ByVal p As Long) As Long
    Public Declare Function rstValidSop Lib "ppp.dll" (ByVal p As Long) As Long
    Public Declare Function putPt Lib "ppp.dll" (ByVal str As Long, ByVal ph As Long, ByVal st As Long) As Long
    Public Declare Function putPf Lib "ppp.dll" (ByVal str As Long, ByVal ph As Long, ByVal pf As Double)
    Public Declare Function getPNr Lib "ppp.dll" () As Long
    Public Declare Function StrPt Lib "ppp.dll" (ByVal str As Long, ByVal ph As Long) As Long
    Public Declare Function StrPts Lib "ppp.dll" (ByVal str As Long, ByVal ph As Long) As IntPtr
    Public Declare Function setValidPhase Lib "ppp.dll" (ByVal p As Long, ByVal ph As Long) As Long
    Public Declare Function StrPf Lib "ppp.dll" (ByVal str As Long, ByVal ph As Long) As Double
    Public Declare Function EStrPf Lib "ppp.dll" (ByVal str As Long, ByVal ph As Long, ByVal t As Double, ByVal p As Double) As Double
    Public Declare Function StrCPnr Lib "ppp.dll" (ByVal str As Long) As Long
    Public Declare Function StrPc Lib "ppp.dll" (ByVal str As Long, ByVal Pos As Long) As Double
    Public Declare Function StrTc Lib "ppp.dll" (ByVal str As Long, ByVal Pos As Long) As Double
    Public Declare Function StrCBp Lib "ppp.dll" (ByVal str As Long) As Double
    Public Declare Function StrCBt Lib "ppp.dll" (ByVal str As Long) As Double
    Public Declare Function StrCTp Lib "ppp.dll" (ByVal str As Long) As Double
    Public Declare Function StrCTt Lib "ppp.dll" (ByVal str As Long) As Double
    Public Declare Function StrAc Lib "ppp.dll" (ByVal str As Long) As Double
    Public Declare Function StrPcm Lib "ppp.dll" (ByVal str As Long) As Double
    Public Declare Function StrTcm Lib "ppp.dll" (ByVal str As Long) As Double
    Public Declare Function StrCopy Lib "ppp.dll" (ByVal str1 As Long, ByVal str2 As Long) As Long
    Public Declare Function setWm Lib "ppp.dll" (ByVal str As Long, ByVal w As Double) As Long
    Public Declare Function getWm Lib "ppp.dll" (ByVal str As Long) As Double
    Public Declare Function getT Lib "ppp.dll" (ByVal str As Long) As Double
    Public Declare Function putT Lib "ppp.dll" (ByVal str As Long, ByVal t As Double) As Long
    Public Declare Function getP Lib "ppp.dll" (ByVal str As Long) As Double
    Public Declare Function putP Lib "ppp.dll" (ByVal str As Long, ByVal t As Double) As Long
    Public Declare Function getMSNr Lib "ppp.dll" (ByVal str As Long) As Long
    Public Declare Function getCNr Lib "ppp.dll" (ByVal str As Long) As Long
    Public Declare Function getMCNr Lib "ppp.dll" () As Long
    Public Declare Function getY Lib "ppp.dll" (ByVal str As Long, ByVal Pos As Long) As Double
    Public Declare Function getX Lib "ppp.dll" (ByVal str As Long, ByVal Pos As Long) As Double
    Public Declare Function getW Lib "ppp.dll" (ByVal str As Long, ByVal Pos As Long, ByVal ph As Long) As Double
    Public Declare Function getZ Lib "ppp.dll" (ByVal str As Long, ByVal Pos As Long) As Double
    Public Declare Function putZ Lib "ppp.dll" (ByVal str As Long, ByVal Pos As Long, ByVal zi As Double) As Long
    Public Declare Function getCC Lib "ppp.dll" (ByVal str As Long, ByVal Pos As Long) As Long
    Public Declare Function putCC Lib "ppp.dll" (ByVal str As Long, ByVal Pos As Long, ByVal cc As Long) As Long
    Public Declare Function getFCNr Lib "ppp.dll" () As Long
    Public Declare Function getFPNr Lib "ppp.dll" () As Long
    Public Declare Function CompN Lib "ppp.dll" (ByVal cc As Long) As IntPtr
    Public Declare Function CompF Lib "ppp.dll" (ByVal cc As Long) As IntPtr
    Public Declare Function CompID Lib "ppp.dll" (ByVal cc As Long) As Long
    Public Declare Function CompCID Lib "ppp.dll" (ByVal Id As Long) As Long
    Public Declare Function CompMw Lib "ppp.dll" (ByVal cc As Long) As Double
    Public Declare Function CompTc Lib "ppp.dll" (ByVal cc As Long) As Double
    Public Declare Function CompPc Lib "ppp.dll" (ByVal cc As Long) As Double
    Public Declare Function CompAc Lib "ppp.dll" (ByVal cc As Long) As Double
    Public Declare Function CompVc Lib "ppp.dll" (ByVal cc As Long) As Double
    Public Declare Function CompDm Lib "ppp.dll" (ByVal cc As Long) As Double
    Public Declare Function CompRg Lib "ppp.dll" (ByVal cc As Long) As Double
    Public Declare Function CompSol Lib "ppp.dll" (ByVal cc As Long) As Double
    Public Declare Function CompHf Lib "ppp.dll" (ByVal cc As Long) As Double
    Public Declare Function CompGf Lib "ppp.dll" (ByVal cc As Long) As Double
    Public Declare Function CompSf Lib "ppp.dll" (ByVal cc As Long) As Double
    Public Declare Function CompNb Lib "ppp.dll" (ByVal cc As Long) As Double
    Public Declare Function CompMp Lib "ppp.dll" (ByVal cc As Long) As Double
    Public Declare Function CompVP Lib "ppp.dll" (ByVal cc As Long, ByVal t As Double) As Double
    Public Declare Function CompHG Lib "ppp.dll" (ByVal cc As Long, ByVal t0 As Double, ByVal t1 As Double) As Double
    Public Declare Function CompSG Lib "ppp.dll" (ByVal cc As Long, ByVal t0 As Double, ByVal t1 As Double) As Double
    Public Declare Function CompHL Lib "ppp.dll" (ByVal cc As Long, ByVal t0 As Double, ByVal t1 As Double) As Double
    Public Declare Function CompSL Lib "ppp.dll" (ByVal cc As Long, ByVal t0 As Double, ByVal t1 As Double) As Double
    Public Declare Function CompHS Lib "ppp.dll" (ByVal cc As Long, ByVal t As Double) As Double
    Public Declare Function CompSS Lib "ppp.dll" (ByVal cc As Long, ByVal t As Double) As Double
    Public Declare Function CompHV Lib "ppp.dll" (ByVal cc As Long, ByVal t As Double) As Double
    Public Declare Function CompLV Lib "ppp.dll" (ByVal cc As Long, ByVal t As Double) As Double
    Public Declare Function CompGV Lib "ppp.dll" (ByVal cc As Long, ByVal t As Double) As Double
    Public Declare Function CompLD Lib "ppp.dll" (ByVal cc As Long, ByVal t As Double) As Double
    Public Declare Function CompSD Lib "ppp.dll" (ByVal cc As Long, ByVal t As Double) As Double
    Public Declare Function CompLC Lib "ppp.dll" (ByVal cc As Long, ByVal t As Double) As Double
    Public Declare Function CompGC Lib "ppp.dll" (ByVal cc As Long, ByVal t As Double) As Double
    Public Declare Function CompST Lib "ppp.dll" (ByVal cc As Long, ByVal t As Double) As Double
    Public Declare Function initS Lib "ppp.dll" (ByVal str As Long) As Long
    Public Declare Function setS Lib "ppp.dll" (ByVal str As Long) As Long
    Public Declare Function loadSB Lib "ppp.dll" (ByVal str As Long, ByVal bt As Long) As Long
    Public Declare Function setKM Lib "ppp.dll" (ByVal str As Long, ByVal k As Long) As Long
    Public Declare Function getMP Lib "ppp.dll" (ByVal str As Long, ByVal prop As Long, ByVal state As Long) As Long
    Public Declare Function setMP Lib "ppp.dll" (ByVal str As Long, ByVal prop As Long, ByVal k As Long, ByVal state As Long) As Long
    Public Declare Function getOM Lib "ppp.dll" (ByVal str As Long) As Long
    Public Declare Function setOM Lib "ppp.dll" (ByVal str As Long, ByVal k As Long) As Long
    Public Declare Function getMDnr Lib "ppp.dll" () As Long
    Public Declare Function getMDP Lib "ppp.dll" (ByVal str As Long, ByVal a As Long, ByVal b As Long) As Long
    Public Declare Function getMDC Lib "ppp.dll" (ByVal str As Long) As Long
    Public Declare Function getMBPNr Lib "ppp.dll" () As Long
    Public Declare Function putCi Lib "ppp.dll" (ByVal str As Long, ByVal Pos As Long, ByVal Ci As Long) As Long
    Public Declare Function getCi Lib "ppp.dll" (ByVal str As Long, ByVal Pos As Long) As Long
    Public Declare Function putCj Lib "ppp.dll" (ByVal str As Long, ByVal Pos As Long, ByVal Cj As Long) As Long
    Public Declare Function getCj Lib "ppp.dll" (ByVal str As Long, ByVal Pos As Long) As Long
    Public Declare Function putMB Lib "ppp.dll" (ByVal str As Long, ByVal Pos As Long, ByVal m As Long) As Long
    Public Declare Function getMB Lib "ppp.dll" (ByVal str As Long, ByVal Pos As Long) As Long
    Public Declare Function putBIP Lib "ppp.dll" (ByVal str As Long, ByVal Pos As Long, ByVal bc As Long, ByVal Kji As Double) As Long
    Public Declare Function getBIP Lib "ppp.dll" (ByVal str As Long, ByVal Pos As Long, ByVal bc As Long) As Double
    Public Declare Function DCOL Lib "ppp.dll" (ByVal csep As Long, ByVal stgnr As Long, ByVal init As Long, ByRef stgt As Double, ByRef stgp As Double, ByRef stgef As Double, ByRef stgdH As Double, ByVal prod_h As Long, ByVal btm_h As Long, ByVal fnr As Long, ByRef fstr As Long, ByRef fpos As Long, ByVal snr As Long, ByRef sstr As Long, ByRef spos As Long, ByRef sft As Long, ByRef sflow As Double, ByVal vnr As Long, ByRef vrv As Double, ByRef vtype As Long, ByRef stype As Long, ByRef siv As Long, ByRef srv As Double, ByRef flows As Double) As Long
    Public Declare Function PIPE Lib "ppp.dll" (ByVal stream As Long, ByVal model As Long, ByVal diam As Double, ByVal dHeight As Double, ByVal dHeat As Double) As Long
    Public Declare Function ISPF Lib "ppp.dll" (ByVal str As Long, ByVal pout As Double, ByVal model As Long, ByVal param As Double) As Double
    Public Declare Function PSPF Lib "ppp.dll" (ByVal str As Long, ByVal pout As Double, ByVal model As Long, ByVal param As Double) As Double
    Public Declare Function HPFORM Lib "ppp.dll" (ByVal stream As Long, ByVal t As Double, ByVal model As Long) As Double
    Public Declare Function HTFORM Lib "ppp.dll" (ByVal stream As Long, ByVal p As Double, ByVal model As Long) As Double
    Public Declare Function PELNr Lib "ppp.dll" (ByVal str As Long) As Long
    Public Declare Function PELT Lib "ppp.dll" (ByVal str As Long, ByVal line As Long) As Long
    Public Declare Function PELP Lib "ppp.dll" (ByVal str As Long, ByVal line As Long) As Long
    Public Declare Function PELine Lib "ppp.dll" (ByVal str As Long, ByVal line As Long, ByRef pt1 As Double, ByRef pp1 As Double, ByVal max As Long) As Long
    Public Declare Function PVLine Lib "ppp.dll" (ByVal str As Long, ByVal line As Long, ByRef pt1 As Double, ByRef pp1 As Double, ByRef ph1 As Double, ByRef ps1 As Double, ByRef pv1 As Double, ByVal max As Long) As Long
    Public Declare Function PFLine Lib "ppp.dll" (ByVal str As Long, ByVal ltype As Long, ByVal pf As Double, ByRef pt1 As Double, ByRef pp1 As Double, ByVal max As Long) As Long

End Module