>If Not "gpImage" $ Set("Procedure") > Set Procedure To gpImage Additive >EndIf > >gdip = CreateObject("gpInit") >img = CreateObject("gpImage") >img.Load(lcFile) >img.SelectPage(1) >ThisForm.oleListView.Picture = img.GetPicture() >>Here ListView is used only to display image and no ListView items should be added.
>If Not "gpImage" $ Set("Procedure") > Set Procedure To gpImage Additive >EndIf > >gdip = CreateObject("gpInit") >img = CreateObject("gpImage") > >* Store each page as separate file >img.Load("multpage.tif") >For i = 0 TO img.GetPageCount() - 1 > img.SelectPage(i) > img.SaveAsJPEG("page" + Transform(i)) >EndFor >Thank you VERY much.