ShowBorderRemoveDlg Example for Visual Basic

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

Private Sub BorderRemove_Click()
   RasterImgDocDlg.BorderRemove.WhiteNoiseLength= 9
   RasterImgDocDlg.BorderRemove.BorderPercent= 20
   RasterImgDocDlg.BorderRemove.Variance = 3
   RasterImgDocDlg.BorderRemove.BorderToRemove = BORDER_LEFT
   RasterImgDocDlg.BorderRemove.Flags= BORDER_USE_VARIANCE
   RasterImgDocDlg.UIFlags = BORDERREMOVE_AUTOPROCESS Or _
                             BORDERREMOVE_SHOW_PREVIEW Or _
                             BORDERREMOVE_SHOW_TOOL_ZOOMLEVEL

   RasterImgDocDlg.Bitmap = LEADRasterView1.Raster.Bitmap
   RasterImgDocDlg.ShowBorderRemoveDlg(hWnd) 
End Sub