ShowMotionBlurDlg Example for Visual Basic

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

Private Sub MotionBlur_Click()
   RasterImgEfxDlg.Bitmap= LEADRasterView1.Raster.Bitmap
   RasterImgEfxDlg.EnableZoomToFit= True
   
   RasterImgEfxDlg.UIFlags= MOTIONBLUR_SHOW_PREVIEW + _
                                           MOTIONBLUR_SHOW_TOOL_ZOOMLEVEL
 
   nRet = RasterImgEfxDlg.ShowMotionBlurDlg(hWnd) 
  
   If (nRet = 0 And RasterImgEfxDlg.DialogStatus = DLG_OK) Then
   
   nRet = RasterProc.MotionBlur (LEADRasterView1.Raster, _
                                RasterImgEfxDlg.Dimension, _
                                RasterImgEfxDlg.Angle, _
                                RasterImgEfxDlg.EnableUniDirectional_
                                ) 
    End If

End Sub

Private Sub RasterImgEfxDlg_DlgHelp(ByVal DlgFrom As Long, ByVal CtlID As Long) 
   Select Case DlgFrom
   Case HELP_MOTIONBLUR
      MsgBox "Help from Motion Blur dialog"
   Case HELP_RADIALBLUR
      MsgBox "Help from Radial Blur dialog"
   End Select
End Sub