ShowDotRemoveDlg Example for Visual Basic

Dim RasterImgDocDlg As New LEADRasterDlgImgDoc
Dim RasterProc   As New LEADRasterProcess
Dim nRet As Integer

Private Sub DotRemove_Click()
   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 = LEADRasterView1.Raster.Bitmap
   RasterImgDocDlg.ShowDotRemoveDlg(hWnd) 
End Sub