ShowZoomBlurDlg Example for Visual Basic

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

Private Sub ZoomBlur_Click()
     RasterImgEfxDlg.UIFlags = ZOOMBLUR_SHOW_PREVIEW + _
                                ZOOMBLUR_SHOW_TOOL_ZOOMLEVEL

     RasterImgEfxDlg.Bitmap = LEADRasterView1.Raster.Bitmap
   
     nRet = RasterImgEfxDlg.ShowZoomBlurDlg(hWnd) 
     If (nRet = 0 And RasterImgEfxDlg.DialogStatus = DLG_OK) Then
          RasterProc.ZoomBlur LEADRasterView1.Raster, RasterImgEfxDlg.Dimension,  _
          RasterImgEfxDlg.Stress, RasterImgEfxDlg.CenterX, RasterImgEfxDlg.CenterY
     End If
End Sub