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