ShowLaplacianFilterDlg Example for Visual Basic

    Dim RasterImgEfxDlg As New LEADRasterDlgImgEfx_U
    Dim nRet As Integer

    RasterImgEfxDlg.UIFlags = LAPLACIANFILTER_SHOW_PREVIEW Or _
                                LAPLACIANFILTER_SHOW_TOOL_ZOOMLEVEL

    RasterImgEfxDlg.Bitmap = LEAD1.Bitmap
    nRet = RasterImgEfxDlg.ShowLaplacianFilterDlg(hWnd)
    If (nRet = 0 And RasterImgEfxDlg.DialogStatus = DLG_OK) Then
        LEAD1.SpatialFilter RasterImgEfxDlg.SpatialFilterType
    End If