ShowPrintStitchedImagesDlg Example for Visual Basic

Private Sub PrintStitchedImages_Click()
	Dim RasterFileDlg As New LEADRasterDlgFile_U
	Dim RasterKrnDlg As New LEADRasterDlgKrn_U
	Dim i As Integer
	Dim nRet As Integer

	RasterKrnDlg.InitDlg 0
	RasterFileDlg.ItemsCount = 3
	RasterFileDlg.ItemFileName(0) = "c:\sample.cmp"
	RasterFileDlg.ItemFileName(1) = "c:\sample.cmp"
	RasterFileDlg.ItemFileName(2) = "c:\sample.cmp"
	For i = 0 To 2
		LEAD1.Load RasterFileDlg.ItemFileName(i), 0, 0, 1
		RasterFileDlg.ItemDescription(i) = Str(i)
		RasterFileDlg.ItemBitmap(i) = LEAD1.Bitmap
	Next i
	nRet = RasterFileDlg.ShowPrintStitchedImagesDlg(hWnd)
	RasterKrnDlg.FreeDlg
End Sub