ShowDilationFilterDlg Example for Visual Basic

     Dim RasterImgEfxDlg As New LEADRasterDlgImgEfx_U
    Dim nRet As Integer
    
    RasterImgEfxDlg.UIFlags = DILATIONFILTER_SHOW_PREVIEW Or _
                                 DILATIONFILTER_SHOW_TOOL_ZOOMLEVEL
    
    RasterImgEfxDlg.Bitmap = LEAD1.Bitmap
    nRet = RasterImgEfxDlg.ShowDilationFilterDlg(hWnd)
    If (nRet = 0 And RasterImgEfxDlg.DialogStatus = DLG_OK) Then
       LEAD1.BinaryFilter RasterImgEfxDlg.BinaryFilterType
    End If