ShowPicturizeDlg Example for Visual Basic

Dim RasterImgEfxDlg As New LEADRasterDlgImgEfx
Dim RasterProc   As New LEADRasterProcess
Dim nRet As Integer

Private Sub Picturize_Click()
  RasterImgEfxDlg.BitmapWidth = LEADRasterView1.Raster.BitmapWidth
   RasterImgEfxDlg.BitmapHeight = LEADRasterView1.Raster.BitmapHeight
   nRet = RasterImgEfxDlg.ShowPicturizeDlg(hWnd) 
   If (nRet = 0 And RasterImgEfxDlg.DialogStatus = DLG_OK) Then
      RasterProcPicturize method LEADRasterView1.Raster, RasterImgEfxDlg.DirectoryPath, _
                             RasterImgEfxDlg.PicturizeResizeFlags, _
                             RasterImgEfxDlg.CellWidth, _
                             RasterImgEfxDlg.CellHeight
   End If
End Sub