ShowLineRemoveDlg Example for Visual Basic

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

Private Sub LineRemove_Click()
   RasterImgDocDlg.LineRemove.GapLength = 3
   RasterImgDocDlg.LineRemove.MaxLineWidth = 9
   RasterImgDocDlg.LineRemove.MaxWallPercent = 10
   RasterImgDocDlg.LineRemove.MinLineLength = 400
   RasterImgDocDlg.LineRemove.Variance = 3
   RasterImgDocDlg.LineRemove.Wall = 15
   RasterImgDocDlg.LineRemove.RemoveFlags= LINEREMOVE_VERTICAL
   RasterImgDocDlg.LineRemove.Flags= LINE_USE_DPI Or LINE_USE_VARIANCE
   
   
   RasterImgDocDlg.UIFlags = LINEREMOVE_SHOW_PREVIEW Or _
                             LINEREMOVE_SHOW_TOOL_ZOOMLEVEL

   RasterImgDocDlg.Bitmap = LEADRasterView1.Raster.Bitmap
   nRet = RasterImgDocDlg.ShowLineRemoveDlg (hWnd) 
   If (nRet = 0 And RasterImgDocDlg.DialogStatus = DLG_OK) Then
   
   End If
End Sub