ShowRadialBlurDlg Example for Visual Basic

Dim RasterImgEfxDlg   As New LEADRasterDlgImgEfx 
Dim RasterProc   As New LEADRasterProcess
Dim nRet As Integer
Private Sub RadialBlur_Click()
  RasterImgEfxDlg.UIFlags = RADIALBLUR_SHOW_PREVIEW + _
                                RADIALBLUR_SHOW_TOOL_ZOOMLEVEL

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