Type PktResults(VC As Short,FEV075 As Short, FEV1 As Short,FEV3 As Short _
,FEV6 As Short, FVC As Short, PEF As Short,FEF25 As Short, FEF50 As Short _
,FEF75 As Short, FEF2575 As Short, FIV1 As Short, FIVC As Short, PIF As Short _
,FIF25 As Short, FIF50 As Short, FIF75 As Short, MET2575 As Short, FET As Short _
,EVC As Short, IVC As Short, IC As Short, VT As Short, Ti As Short, Te As Short _
,IRV As Short, ERV As Short, Vext As Short, FEV075_VC As Short, FEV075_FVC As Short _
,FEV1_VC As Short, FEV1_FVC As Short, FEV3_VC As Short, FEV3_FVC As Short _
,FEV075_FEV6 As Short, FEV1_FEV6 As Short, FEF50_VC As Short, FEF50_FVC As Short _
,MMEF_FVC As Short, FIV1_FIVC As Short, R50 As Short, Ti_Ttot As Short _
,VT_Ti As Short, FR As Short, MVV As Short, PEAKTIME As Short, LAST500V As Short _
,SPARE(28) As Byte)
Dim Results As PktResults