If bcRESULT2.pBC_TwoDimRes.hBC_TwoDimRes <> 0 Then h2DResult = 0 h2DResult = GlobalLock(bcRESULT2.pBC_TwoDimRes.hBC_TwoDimRes) If h2DResult = 0 Then sResult = sResult + TXT_ERROR_RESULT_2DIM_NOACCESS + vbCrLf Else s2DResult = String(bcRESULT2.pBC_TwoDimRes.iBC_TwoDimLen + 1, Chr(0)) Call CopyMemory(ByVal s2DResult, ByVal h2DResult, bcRESULT2.pBC_TwoDimRes.iBC_TwoDimLen) s2DResult = Left(s2DResult, bcRESULT2.pBC_TwoDimRes.iBC_TwoDimLen) sResult = sResult + qsTrim(s2DResult) + vbCrLf bcData = qsTrim(s2DResult) GlobalUnlock (h2DResult) End If GlobalFree (bcRESULT2.pBC_TwoDimRes.hBC_TwoDimRes) bcRESULT2.pBC_TwoDimRes.hBC_TwoDimRes = 0 Else .... End IfAgnes