ShowDotRemoveDlg Example for Visual Basic

    Dim RasterImgDocDlg As New LEADRasterDlgImgDoc_U
    Dim nRet As Integer
    
    LEAD1.Load "d:\images\ocr1.tif", 0, 1, 1
    
    RasterImgDocDlg.DotRemove.MinDotWidth = 6
    RasterImgDocDlg.DotRemove.MinDotHeight = 6
    RasterImgDocDlg.DotRemove.MaxDotWidth = 8
    RasterImgDocDlg.DotRemove.MaxDotHeight = 8
    RasterImgDocDlg.DotRemove.Flags = DOT_USE_DIAGONALS Or DOT_USE_DPI
    
    RasterImgDocDlg.WhiteAreaColor = RGB(255, 0, 0)
    RasterImgDocDlg.BlackAreaColor = RGB(0, 0, 255)
    RasterImgDocDlg.UIFlags = DOTREMOVE_AUTOPROCESS Or _
                              DOTREMOVE_SHOW_PREVIEW Or _
                              DOTREMOVE_SHOW_TOOL_ZOOMLEVEL
    
    RasterImgDocDlg.Bitmap = LEAD1.Bitmap
    RasterImgDocDlg.ShowDotRemoveDlg (hWnd)