ShowPrintStitchedImagesDlg Example for Visual Basic

Dim RasterFileDlg As New LEADRasterDlgFile
Dim i As Integer 
Dim nRet As Integer

Private Sub PrintStitchedImages_Click()
   Dim Raster As New LEADRaster
   
   RasterFileDlg.ItemsCount = 3
   RasterFileDlg.ItemFileName(0) = "c:\ image1.cmp"
   RasterFileDlg.ItemFileName(1) = "c:\ image2.cmp"
   RasterFileDlg.ItemFileName(2) = "c:\ image3.cmp "
   For i = 0 To 2
      RasterIO.Load Raster, RasterFileDlg.ItemFileName(i), 0, 0, 1
      RasterFileDlg.ItemDescription(i) = Str(i) 
      RasterFileDlg.ItemBitmap(i) = Raster.Bitmap
   Next i
   nRet = RasterFileDlg.ShowPrintStitchedImagesDlg(hWnd) 
End Sub