ShowLineRemoveDlg Example for Visual Basic

    Dim RasterImgDocDlg As New LEADRasterDlgImgDoc_U
    Dim nRet As Integer

    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 = LEAD1.Bitmap
    nRet = RasterImgDocDlg.ShowLineRemoveDlg(hWnd)