ShowMotionBlurDlg Example for Visual Basic

    Dim RasterImgEfxDlg   As New LEADRasterDlgImgEfx_U
    Dim nRet As Integer

    RasterImgEfxDlg.Bitmap = LEAD1.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 = LEAD1.MotionBlur(RasterImgEfxDlg.Dimension, _
                                RasterImgEfxDlg.Angle, _
                                RasterImgEfxDlg.EnableUniDirectional)
    End If