... lChangeUnit := .F. Function Main( cFile, nType, nRes, lHide, nPaper ) Local hDib := 0 Local oImage, oBar, oBtn, oFont, oCbx, oCbxU, oCbxR, oGet, oCheck Local lSave := .F. Local cType Local aTypes := { "1-Scale Gray","2-Real Color","3-Palette Color" } Local aResolutions := { "75","100","150","200","300" ...