ShowResizeDlg Example for Visual Basic

Dim RasterImgDlg   As New LEADRasterDlgImg
Dim RasterProc   As New LEADRasterProcess
Dim nRet As Integer

Private Sub Resize_Click()
   RasterImgDlg.MaxNewWidth = 0
   RasterImgDlg.MaxNewHeight = 0
   RasterImgDlg.MaxNewResolutionX = 0
   RasterImgDlg.MaxNewResolutionY = 0
   RasterImgDlg.CurrentWidth = LEADRasterView1.Raster.BitmapWidth
   RasterImgDlg.CurrentHeight = LEADRasterView1.Raster.BitmapHeight
   RasterImgDlg.CurrentResolutionX = LEADRasterView1.Raster.BitmapXRes
   RasterImgDlg.CurrentResolutionY = LEADRasterView1.Raster.BitmapYRes
   RasterImgDlg.BitsPerPixel = LEADRasterView1.Raster.BitmapBits

   RasterImgDlg.UIFlags = RESIZE_SHOW_IDENTICALVALUE Or _
                            RESIZE_SHOW_MAINTAINASPECT Or _
                            RESIZE_SHOW_PERCENTAGE
                       

   RasterImgDlg.Bitmap = LEADRasterView1.Raster.Bitmap
   nRet = RasterImgDlg.ShowResizeDlg(hWnd) 
   If (nRet = 0 And RasterImgDlg.DialogStatus = DLG_OK) Then
      RasterProc.Size LEADRasterView1.Raster, RasterImgDlg.NewWidth, RasterImgDlg.NewHeight, RasterImgDlg.ResizeFlags
   End If
End Sub