' this file is part of Prode Properties, 
' Copyright Roberto Paron, 1992-2016 www.prode.com

' these methods include graphic objects
Private Declare PtrSafe Function AOpen Lib "pppx.dll" () As Long
Private Declare PtrSafe Function ASave Lib "pppx.dll" () As Long
Private Declare PtrSafe Function edS Lib "pppx.dll" (ByVal str As Long) As Long
Private Declare PtrSafe Function edSS Lib "pppx.dll" () As Long

' methods portable on all supported platforms
Private Declare PtrSafe Function getErrFlag Lib "ppp.dll" () As Long
Private Declare PtrSafe Function setErrFlag Lib "ppp.dll" (ByVal state As Long) As Long
Private Declare PtrSafe Function defErrMsg Lib "ppp.dll" (ByVal state As Long) As Long
Private Declare PtrSafe Function MErrMsg Lib "ppp.dll" (ByVal varg As String, ByVal slm As Long) As Long
Private Declare PtrSafe Function isSDef Lib "ppp.dll" (ByVal str As Long) As Long
Private Declare PtrSafe Function getUMC Lib "ppp.dll" (ByVal UM As Long) As Long
Private Declare PtrSafe Function setUMC Lib "ppp.dll" (ByVal UM As Long, ByVal sel As Long) As Long
Private Declare PtrSafe Function getUMN Lib "ppp.dll" (ByVal UM As Long) As Long
Private Declare PtrSafe Function UMCR Lib "ppp.dll" (ByVal val As Double, ByVal a As Long, ByVal b As Long) As Double
Private Declare PtrSafe Function UMCS Lib "ppp.dll" (ByVal val As Double, ByVal a As Long, ByVal b As Long) As Double
Private Declare PtrSafe Function UMRAU Lib "ppp.dll" (ByVal UM As Long) As Long
Private Declare PtrSafe Function MgetUMS Lib "ppp.dll" (ByVal UM As Long, ByVal sel As Long, ByVal varg As String, ByVal slm As Long) As Long
Private Declare PtrSafe Function MgetSUMS Lib "ppp.dll" (ByVal UM As Long, ByVal varg As String, ByVal slm As Long) As Long
Private Declare PtrSafe Function getPatm Lib "ppp.dll" () As Double
Private Declare PtrSafe Function MStrN Lib "ppp.dll" (ByVal str As Long, ByVal varg As String, ByVal slm As Long) As Long
Private Declare PtrSafe Function StrZv Lib "ppp.dll" (ByVal str As Long) As Double
Private Declare PtrSafe Function EStrZv Lib "ppp.dll" (ByVal str As Long, ByVal t As Double, ByVal p As Double) As Double
Private Declare PtrSafe Function StrMw Lib "ppp.dll" (ByVal str As Long) As Double
Private Declare PtrSafe Function StrGMw Lib "ppp.dll" (ByVal str As Long) As Double
Private Declare PtrSafe Function EStrGMw Lib "ppp.dll" (ByVal str As Long, ByVal t As Double, ByVal p As Double) As Double
Private Declare PtrSafe Function StrLMw Lib "ppp.dll" (ByVal str As Long) As Double
Private Declare PtrSafe Function EStrLMw Lib "ppp.dll" (ByVal str As Long, ByVal t As Double, ByVal p As Double) As Double
Private Declare PtrSafe Function setSB Lib "ppp.dll" (ByVal cc As Long, ByVal t As Double, ByVal t As Double) As Long
Private Declare PtrSafe Function StrGSS Lib "ppp.dll" (ByVal str As Long) As Double
Private Declare PtrSafe Function EStrGSS Lib "ppp.dll" (ByVal str As Long, ByVal t As Double, ByVal p As Double) As Double
Private Declare PtrSafe Function setHB Lib "ppp.dll" (ByVal cc As Long, ByVal t As Double, ByVal t As Double) As Long
Private Declare PtrSafe Function StrGH Lib "ppp.dll" (ByVal str As Long) As Double
Private Declare PtrSafe Function StrSGH Lib "ppp.dll" (ByVal str As Long) As Double
Private Declare PtrSafe Function StrLH Lib "ppp.dll" (ByVal str As Long) As Double
Private Declare PtrSafe Function StrSLH Lib "ppp.dll" (ByVal str As Long) As Double
Private Declare PtrSafe Function StrSH Lib "ppp.dll" (ByVal str As Long) As Double
Private Declare PtrSafe Function StrSSH Lib "ppp.dll" (ByVal str As Long) As Double
Private Declare PtrSafe Function StrGICp Lib "ppp.dll" (ByVal str As Long) As Double
Private Declare PtrSafe Function StrGCp Lib "ppp.dll" (ByVal str As Long) As Double
Private Declare PtrSafe Function EStrGCp Lib "ppp.dll" (ByVal str As Long, ByVal t As Double, ByVal p As Double) As Double
Private Declare PtrSafe Function StrLCp Lib "ppp.dll" (ByVal str As Long) As Double
Private Declare PtrSafe Function EStrLCp Lib "ppp.dll" (ByVal str As Long, ByVal t As Double, ByVal p As Double) As Double
Private Declare PtrSafe Function StrSCp Lib "ppp.dll" (ByVal str As Long) As Double
Private Declare PtrSafe Function EStrSCp Lib "ppp.dll" (ByVal str As Long, ByVal t As Double, ByVal p As Double) As Double
Private Declare PtrSafe Function StrGCv Lib "ppp.dll" (ByVal str As Long) As Double
Private Declare PtrSafe Function EStrGCv Lib "ppp.dll" (ByVal str As Long, ByVal t As Double, ByVal p As Double) As Double
Private Declare PtrSafe Function StrLCv Lib "ppp.dll" (ByVal str As Long) As Double
Private Declare PtrSafe Function EStrLCv Lib "ppp.dll" (ByVal str As Long, ByVal t As Double, ByVal p As Double) As Double
Private Declare PtrSafe Function StrLSS Lib "ppp.dll" (ByVal str As Long) As Double
Private Declare PtrSafe Function EStrLSS Lib "ppp.dll" (ByVal str As Long, ByVal t As Double, ByVal p As Double) As Double
Private Declare PtrSafe Function StrMSS Lib "ppp.dll" (ByVal str As Long) As Double
Private Declare PtrSafe Function EStrMSS Lib "ppp.dll" (ByVal str As Long, ByVal t As Double, ByVal p As Double) As Double
Private Declare PtrSafe Function StrGIC Lib "ppp.dll" (ByVal str As Long) As Double
Private Declare PtrSafe Function EStrGIC Lib "ppp.dll" (ByVal str As Long, ByVal t As Double, ByVal p As Double) As Double
Private Declare PtrSafe Function StrLIC Lib "ppp.dll" (ByVal str As Long) As Double
Private Declare PtrSafe Function EStrLIC Lib "ppp.dll" (ByVal str As Long, ByVal t As Double, ByVal p As Double) As Double
Private Declare PtrSafe Function StrGVE Lib "ppp.dll" (ByVal str As Long) As Double
Private Declare PtrSafe Function EStrGVE Lib "ppp.dll" (ByVal str As Long, ByVal t As Double, ByVal p As Double) As Double
Private Declare PtrSafe Function StrLVE Lib "ppp.dll" (ByVal str As Long) As Double
Private Declare PtrSafe Function EStrLVE Lib "ppp.dll" (ByVal str As Long, ByVal t As Double, ByVal p As Double) As Double
Private Declare PtrSafe Function StrGJT Lib "ppp.dll" (ByVal str As Long) As Double
Private Declare PtrSafe Function EStrGJT Lib "ppp.dll" (ByVal str As Long, ByVal t As Double, ByVal p As Double) As Double
Private Declare PtrSafe Function StrLJT Lib "ppp.dll" (ByVal str As Long) As Double
Private Declare PtrSafe Function EStrLJT Lib "ppp.dll" (ByVal str As Long, ByVal t As Double, ByVal p As Double) As Double
Private Declare PtrSafe Function StrH Lib "ppp.dll" (ByVal str As Long) As Double
Private Declare PtrSafe Function EStrH Lib "ppp.dll" (ByVal str As Long, ByVal t As Double, ByVal p As Double) As Double
Private Declare PtrSafe Function StrGS Lib "ppp.dll" (ByVal str As Long) As Double
Private Declare PtrSafe Function StrSGS Lib "ppp.dll" (ByVal str As Long) As Double
Private Declare PtrSafe Function StrLS Lib "ppp.dll" (ByVal str As Long) As Double
Private Declare PtrSafe Function StrSLS Lib "ppp.dll" (ByVal str As Long) As Double
Private Declare PtrSafe Function StrSS Lib "ppp.dll" (ByVal str As Long) As Double
Private Declare PtrSafe Function StrSSS Lib "ppp.dll" (ByVal str As Long) As Double
Private Declare PtrSafe Function StrS Lib "ppp.dll" (ByVal str As Long) As Double
Private Declare PtrSafe Function EStrS Lib "ppp.dll" (ByVal str As Long, ByVal t As Double, ByVal p As Double) As Double
Private Declare PtrSafe Function StrMDt Lib "ppp.dll" (ByVal str As Long) As Double
Private Declare PtrSafe Function BPF Lib "ppp.dll" (ByVal str As Long, ByVal t As Double) As Double
Private Declare PtrSafe Function DPF Lib "ppp.dll" (ByVal str As Long, ByVal t As Double) As Double
Private Declare PtrSafe Function LfTF Lib "ppp.dll" (ByVal str As Long, ByVal p As Double, ByVal lf As Double) As Double
Private Declare PtrSafe Function LfPF Lib "ppp.dll" (ByVal str As Long, ByVal t As Double, ByVal lf As Double) As Double
Private Declare PtrSafe 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
Private Declare PtrSafe 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
Private Declare PtrSafe Function SPF Lib "ppp.dll" (ByVal str As Long, ByVal pout As Double, ByVal ds As Double, ByVal et As Double) As Double
Private Declare PtrSafe Function STF Lib "ppp.dll" (ByVal str As Long, ByVal tout As Double, ByVal ds As Double, ByVal ep As Double) As Double
Private Declare PtrSafe Function HPF Lib "ppp.dll" (ByVal str As Long, ByVal pout As Double, ByVal dh As Double, ByVal et As Double) As Double
Private Declare PtrSafe Function HTF Lib "ppp.dll" (ByVal str As Long, ByVal tout As Double, ByVal dh As Double, ByVal ep As Double) As Double
Private Declare PtrSafe Function VPF Lib "ppp.dll" (ByVal str As Long, ByVal pout As Double, ByVal dh As Double, ByVal et As Double) As Double
Private Declare PtrSafe Function VTF Lib "ppp.dll" (ByVal str As Long, ByVal tout As Double, ByVal dh As Double, ByVal ep As Double) As Double
Private Declare PtrSafe Function HVF Lib "ppp.dll" (ByVal str As Long, ByVal tout As Double, ByVal dh As Double, ByVal ep As Double) As Long
Private Declare PtrSafe Function SVF Lib "ppp.dll" (ByVal str As Long, ByVal pout As Double, ByVal dh As Double, ByVal et As Double) As Long
Private Declare PtrSafe Function HSF Lib "ppp.dll" (ByVal str As Long, ByVal tout As Double, ByVal dh As Double, ByVal ep As Double) As Long
Private Declare PtrSafe Function setOp Lib "ppp.dll" (ByVal str As Long, ByVal t As Double, ByVal p As Double) As Long
Private Declare PtrSafe Function setSOp Lib "ppp.dll" (ByVal str As Long) As Long
Private Declare PtrSafe Function Divi Lib "ppp.dll" (ByVal str1 As Long, ByVal str2 As Long, ByVal w As Double) As Long
Private Declare PtrSafe Function MixF Lib "ppp.dll" (ByVal str1 As Long, ByVal str2 As Long, ByVal str3 As Long, pout as Double, et As Double) As Long
Private Declare PtrSafe Function LSep Lib "ppp.dll" (ByVal str1 As Long, ByVal str2 As Long) As Long
Private Declare PtrSafe Function GSep Lib "ppp.dll" (ByVal str1 As Long, ByVal str2 As Long) As Long
Private Declare PtrSafe Function VLLSep Lib "ppp.dll" (ByVal str1 As Long, ByVal str2 As Long, ByVal str3 As Long, ByVal str4 As Long) As Long
Private Declare PtrSafe Function PSep Lib "ppp.dll" (ByVal str1 As Long, ByVal ph As Long, ByVal str3 As Long) As Long
Private Declare PtrSafe Function StrFML Lib "ppp.dll" (ByVal str As Long) As Double
Private Declare PtrSafe Function EStrFML Lib "ppp.dll" (ByVal str As Long, ByVal t As Double, ByVal p As Double) As Double
Private Declare PtrSafe Function StrFMH Lib "ppp.dll" (ByVal str As Long) As Double
Private Declare PtrSafe Function EStrFMH Lib "ppp.dll" (ByVal str As Long, ByVal t As Double, ByVal p As Double) As Double
Private Declare PtrSafe Function StrHC Lib "ppp.dll" (ByVal str As Long) As Double
Private Declare PtrSafe Function EStrHC Lib "ppp.dll" (ByVal str As Long, ByVal t As Double, ByVal p As Double) As Double
Private Declare PtrSafe Function StrLV Lib "ppp.dll" (ByVal str As Long) As Double
Private Declare PtrSafe Function EStrLV Lib "ppp.dll" (ByVal str As Long, ByVal t As Double, ByVal p As Double) As Double
Private Declare PtrSafe Function StrGV Lib "ppp.dll" (ByVal str As Long) As Double
Private Declare PtrSafe Function EStrGV Lib "ppp.dll" (ByVal str As Long, ByVal t As Double, ByVal p As Double) As Double
Private Declare PtrSafe Function StrV Lib "ppp.dll" (ByVal str As Long) As Double
Private Declare PtrSafe Function EStrV Lib "ppp.dll" (ByVal str As Long, ByVal t As Double, ByVal p As Double) As Double
Private Declare PtrSafe Function StrLD Lib "ppp.dll" (ByVal str As Long) As Double
Private Declare PtrSafe Function EStrLD Lib "ppp.dll" (ByVal str As Long, ByVal t As Double, ByVal p As Double) As Double
Private Declare PtrSafe Function StrSD Lib "ppp.dll" (ByVal str As Long) As Double
Private Declare PtrSafe Function EStrSD Lib "ppp.dll" (ByVal str As Long, ByVal t As Double, ByVal p As Double) As Double
Private Declare PtrSafe Function StrGD Lib "ppp.dll" (ByVal str As Long) As Double
Private Declare PtrSafe Function EStrGD Lib "ppp.dll" (ByVal str As Long, ByVal t As Double, ByVal p As Double) As Double
Private Declare PtrSafe Function StrLC Lib "ppp.dll" (ByVal str As Long) As Double
Private Declare PtrSafe Function EStrLC Lib "ppp.dll" (ByVal str As Long, ByVal t As Double, ByVal p As Double) As Double
Private Declare PtrSafe Function StrGC Lib "ppp.dll" (ByVal str As Long) As Double
Private Declare PtrSafe Function EStrGC Lib "ppp.dll" (ByVal str As Long, ByVal t As Double, ByVal p As Double) As Double
Private Declare PtrSafe Function StrST Lib "ppp.dll" (ByVal str As Long) As Double
Private Declare PtrSafe Function EStrST Lib "ppp.dll" (ByVal str As Long, ByVal t As Double, ByVal p As Double) As Double
Private Declare PtrSafe Function StrRVP Lib "ppp.dll" (ByVal str As Long, ByVal mode As Long) As Double
Private Declare PtrSafe Function StrLf Lib "ppp.dll" (ByVal str As Long) As Double
Private Declare PtrSafe Function EStrLf Lib "ppp.dll" (ByVal str As Long, ByVal t As Double, ByVal p As Double) As Double
Private Declare PtrSafe Function setValidSop Lib "ppp.dll" (ByVal p As Long) As Long
Private Declare PtrSafe Function rstValidSop Lib "ppp.dll" (ByVal p As Long) As Long
Private Declare PtrSafe Function putPt Lib "ppp.dll" (ByVal str As Long, ByVal ph As Long, ByVal st As Long) As Long
Private Declare PtrSafe Function putPf Lib "ppp.dll" (ByVal str As Long, ByVal ph As Long, ByVal pf As Double)
Private Declare PtrSafe Function getPNr Lib "ppp.dll" () As Long
Private Declare PtrSafe Function StrPt Lib "ppp.dll" (ByVal str As Long, ByVal ph As Long) As Long
Private Declare PtrSafe Function MStrPts Lib "ppp.dll" (ByVal str As Long, ByVal ph As Long, ByVal varg As String, ByVal slm As Long) As Long
Private Declare PtrSafe Function setValidPhase Lib "ppp.dll" (ByVal p As Long, ByVal ph As Long) As Long
Private Declare PtrSafe Function StrPf Lib "ppp.dll" (ByVal str As Long, ByVal ph As Long) As Double
Private Declare PtrSafe Function EStrPf Lib "ppp.dll" (ByVal str As Long, ByVal ph As Long, ByVal t As Double, ByVal p As Double) As Double
Private Declare PtrSafe Function StrCPnr Lib "ppp.dll" (ByVal str As Long) As Long
Private Declare PtrSafe Function StrPc Lib "ppp.dll" (ByVal str As Long, ByVal Pos As Long) As Double
Private Declare PtrSafe Function StrTc Lib "ppp.dll" (ByVal str As Long, ByVal Pos As Long) As Double
Private Declare PtrSafe Function StrCBp Lib "ppp.dll" (ByVal str As Long) As Double
Private Declare PtrSafe Function StrCBt Lib "ppp.dll" (ByVal str As Long) As Double
Private Declare PtrSafe Function StrCTp Lib "ppp.dll" (ByVal str As Long) As Double
Private Declare PtrSafe Function StrCTt Lib "ppp.dll" (ByVal str As Long) As Double
Private Declare PtrSafe Function StrAc Lib "ppp.dll" (ByVal str As Long) As Double
Private Declare PtrSafe Function StrPcm Lib "ppp.dll" (ByVal str As Long) As Double
Private Declare PtrSafe Function StrTcm Lib "ppp.dll" (ByVal str As Long) As Double
Private Declare PtrSafe Function StrCopy Lib "ppp.dll" (ByVal str1 As Long, ByVal str2 As Long) As Long
Private Declare PtrSafe Function setWm Lib "ppp.dll" (ByVal str As Long, ByVal w As Double) As Long
Private Declare PtrSafe Function getWm Lib "ppp.dll" (ByVal str As Long) As Double
Private Declare PtrSafe Function getT Lib "ppp.dll" (ByVal str As Long) As Double
Private Declare PtrSafe Function putT Lib "ppp.dll" (ByVal str As Long, ByVal t As Double) As Long
Private Declare PtrSafe Function getP Lib "ppp.dll" (ByVal str As Long) As Double
Private Declare PtrSafe Function putP Lib "ppp.dll" (ByVal str As Long, ByVal t As Double) As Long
Private Declare PtrSafe Function getMSNr Lib "ppp.dll" (ByVal str As Long) As Long
Private Declare PtrSafe Function getCNr Lib "ppp.dll" (ByVal str As Long) As Long
Private Declare PtrSafe Function getMCNr Lib "ppp.dll" () As Long
Private Declare PtrSafe Function getY Lib "ppp.dll" (ByVal str As Long, ByVal Pos As Long) As Double
Private Declare PtrSafe Function getX Lib "ppp.dll" (ByVal str As Long, ByVal Pos As Long) As Double
Private Declare PtrSafe Function getW Lib "ppp.dll" (ByVal str As Long, ByVal Pos As Long, ByVal ph As Long) As Double
Private Declare PtrSafe Function getZ Lib "ppp.dll" (ByVal str As Long, ByVal Pos As Long) As Double
Private Declare PtrSafe Function putZ Lib "ppp.dll" (ByVal str As Long, ByVal Pos As Long, ByVal zi As Double) As Long
Private Declare PtrSafe Function getCC Lib "ppp.dll" (ByVal str As Long, ByVal Pos As Long) As Long
Private Declare PtrSafe Function putCC Lib "ppp.dll" (ByVal str As Long, ByVal Pos As Long, ByVal cc As Long) As Long
Private Declare PtrSafe Function getFCNr Lib "ppp.dll" () As Long
Private Declare PtrSafe Function getFPNr Lib "ppp.dll" () As Long
Private Declare PtrSafe Function MCompN Lib "ppp.dll" (ByVal cc As Long, ByVal varg As String, ByVal slm As Long) As Long
Private Declare PtrSafe Function MCompF Lib "ppp.dll" (ByVal cc As Long, ByVal varg As String, ByVal slm As Long) As Long
Private Declare PtrSafe Function CompID Lib "ppp.dll" (ByVal cc As Long) As Long
Private Declare PtrSafe Function CompCID Lib "ppp.dll" (ByVal Id As Long) As Long
Private Declare PtrSafe Function CompMw Lib "ppp.dll" (ByVal cc As Long) As Double
Private Declare PtrSafe Function CompTc Lib "ppp.dll" (ByVal cc As Long) As Double
Private Declare PtrSafe Function CompPc Lib "ppp.dll" (ByVal cc As Long) As Double
Private Declare PtrSafe Function CompAc Lib "ppp.dll" (ByVal cc As Long) As Double
Private Declare PtrSafe Function CompVc Lib "ppp.dll" (ByVal cc As Long) As Double
Private Declare PtrSafe Function CompDm Lib "ppp.dll" (ByVal cc As Long) As Double
Private Declare PtrSafe Function CompRg Lib "ppp.dll" (ByVal cc As Long) As Double
Private Declare PtrSafe Function CompSol Lib "ppp.dll" (ByVal cc As Long) As Double
Private Declare PtrSafe Function CompHf Lib "ppp.dll" (ByVal cc As Long) As Double
Private Declare PtrSafe Function CompGf Lib "ppp.dll" (ByVal cc As Long) As Double
Private Declare PtrSafe Function CompSf Lib "ppp.dll" (ByVal cc As Long) As Double
Private Declare PtrSafe Function CompNb Lib "ppp.dll" (ByVal cc As Long) As Double
Private Declare PtrSafe Function CompMp Lib "ppp.dll" (ByVal cc As Long) As Double
Private Declare PtrSafe Function CompVP Lib "ppp.dll" (ByVal cc As Long, ByVal t As Double) As Double
Private Declare PtrSafe Function CompHG Lib "ppp.dll" (ByVal cc As Long, ByVal t0 As Double, ByVal t1 As Double) As Double
Private Declare PtrSafe Function CompSG Lib "ppp.dll" (ByVal cc As Long, ByVal t0 As Double, ByVal t1 As Double) As Double
Private Declare PtrSafe Function CompHL Lib "ppp.dll" (ByVal cc As Long, ByVal t0 As Double, ByVal t1 As Double) As Double
Private Declare PtrSafe Function CompSL Lib "ppp.dll" (ByVal cc As Long, ByVal t0 As Double, ByVal t1 As Double) As Double
Private Declare PtrSafe Function CompHS Lib "ppp.dll" (ByVal cc As Long, ByVal t As Double) As Double
Private Declare PtrSafe Function CompSS Lib "ppp.dll" (ByVal cc As Long, ByVal t As Double) As Double
Private Declare PtrSafe Function CompHV Lib "ppp.dll" (ByVal cc As Long, ByVal t As Double) As Double
Private Declare PtrSafe Function CompLV Lib "ppp.dll" (ByVal cc As Long, ByVal t As Double) As Double
Private Declare PtrSafe Function CompGV Lib "ppp.dll" (ByVal cc As Long, ByVal t As Double) As Double
Private Declare PtrSafe Function CompLD Lib "ppp.dll" (ByVal cc As Long, ByVal t As Double) As Double
Private Declare PtrSafe Function CompSD Lib "ppp.dll" (ByVal cc As Long, ByVal t As Double) As Double
Private Declare PtrSafe Function CompLC Lib "ppp.dll" (ByVal cc As Long, ByVal t As Double) As Double
Private Declare PtrSafe Function CompGC Lib "ppp.dll" (ByVal cc As Long, ByVal t As Double) As Double
Private Declare PtrSafe Function CompST Lib "ppp.dll" (ByVal cc As Long, ByVal t As Double) As Double
Private Declare PtrSafe Function initS Lib "ppp.dll" (ByVal str As Long) As Long
Private Declare PtrSafe Function setS Lib "ppp.dll" (ByVal str As Long) As Long
Private Declare PtrSafe Function loadSB Lib "ppp.dll" (ByVal str As Long, ByVal bt As Long) As Long
Private Declare PtrSafe Function setKM Lib "ppp.dll" (ByVal str As Long, ByVal k As Long) As Long
Private Declare PtrSafe Function getMP Lib "ppp.dll" (ByVal str As Long, ByVal prop As Long, ByVal state As Long) As Long
Private Declare PtrSafe Function setMP Lib "ppp.dll" (ByVal str As Long, ByVal prop As Long, ByVal state As Long, ByVal k As Long) As Long
Private Declare PtrSafe Function getKO Lib "ppp.dll" (ByVal str As Long) As Long
Private Declare PtrSafe Function putKO Lib "ppp.dll" (ByVal str As Long, ByVal k As Long) As Long
Private Declare PtrSafe Function getKS Lib "ppp.dll" (ByVal str As Long, ByVal opt As Long) As Long
Private Declare PtrSafe Function putKS Lib "ppp.dll" (ByVal str As Long, ByVal opt As Long, ByVal k As Long) As Long
Private Declare PtrSafe Function getMDnr Lib "ppp.dll" () As Long
Private Declare PtrSafe Function getMDP Lib "ppp.dll" (ByVal str As Long, ByVal a As Long, ByVal b As Long) As Long
Private Declare PtrSafe Function getMDC Lib "ppp.dll" (ByVal str As Long) As Long
Private Declare PtrSafe Function getMBPNr Lib "ppp.dll" () As Long
Private Declare PtrSafe Function putCi Lib "ppp.dll" (ByVal str As Long, ByVal Pos As Long, ByVal Ci As Long) As Long
Private Declare PtrSafe Function getCi Lib "ppp.dll" (ByVal str As Long, ByVal Pos As Long) As Long
Private Declare PtrSafe Function putCj Lib "ppp.dll" (ByVal str As Long, ByVal Pos As Long, ByVal Cj As Long) As Long
Private Declare PtrSafe Function getCj Lib "ppp.dll" (ByVal str As Long, ByVal Pos As Long) As Long
Private Declare PtrSafe Function putMB Lib "ppp.dll" (ByVal str As Long, ByVal Pos As Long, ByVal m As Long) As Long
Private Declare PtrSafe Function getMB Lib "ppp.dll" (ByVal str As Long, ByVal Pos As Long) As Long
Private Declare PtrSafe Function putBIP Lib "ppp.dll" (ByVal str As Long, ByVal Pos As Long, ByVal bc As Long, ByVal Kji As Double) As Long
Private Declare PtrSafe Function getBIP Lib "ppp.dll" (ByVal str As Long, ByVal Pos As Long, ByVal bc As Long) As Double
Private Declare PtrSafe 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
Private Declare PtrSafe 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
Private Declare PtrSafe Function ISPF Lib "ppp.dll" (ByVal str As Long, ByVal pout As Double, ByVal model As Long, ByVal param As Double) As Double
Private Declare PtrSafe Function PSPF Lib "ppp.dll" (ByVal str As Long, ByVal pout As Double, ByVal model As Long, ByVal param As Double) As Double
Private Declare PtrSafe Function HPFORM Lib "ppp.dll" (ByVal stream As Long, ByVal t As Double, ByVal model As Long) As Double
Private Declare PtrSafe Function HTFORM Lib "ppp.dll" (ByVal stream As Long, ByVal p As Double, ByVal model As Long) As Double
Private Declare PtrSafe Function PELNr Lib "ppp.dll" (ByVal str As Long) As Long
Private Declare PtrSafe Function PELT Lib "ppp.dll" (ByVal str As Long, ByVal line As Long) As Long
Private Declare PtrSafe Function PELP Lib "ppp.dll" (ByVal str As Long, ByVal line As Long) As Long
Private Declare PtrSafe 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
Private Declare PtrSafe 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
Private Declare PtrSafe 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