ShowHolePunchRemoveDlg Example for Visual Basic

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

Private Sub HolePunchRemove_Click()
   RasterImgDocDlg.HolePunchRemove.MinHoleCount = 2
   RasterImgDocDlg.HolePunchRemove.MaxHoleCount = 4
   RasterImgDocDlg.HolePunchRemove.MinHoleWidth = 0
   RasterImgDocDlg.HolePunchRemove.MinHoleHeight = 0
   RasterImgDocDlg.HolePunchRemove.MaxHoleWidth = 0
   RasterImgDocDlg.HolePunchRemove.MaxHoleHeight = 0
   RasterImgDocDlg.HolePunchRemove.Location= HOLEPUNCH_LEFT
   RasterImgDocDlg.HolePunchRemove.Flags= HOLEPUNCH_USE_DPI
   RasterImgDocDlg.UIFlags = HOLEPUNCHREMOVE_AUTOPROCESS Or _
                             HOLEPUNCHREMOVE_SHOW_PREVIEW Or _
                             HOLEPUNCHREMOVE_SHOW_TOOL_ZOOMLEVEL

   RasterImgDocDlg.WhiteAreaColor = RGB(255, 0, 0) 
   RasterImgDocDlg.BlackAreaColor = RGB(0, 0, 255) 
   RasterImgDocDlg.Bitmap = LEADRasterView1.Raster.Bitmap
   RasterImgDocDlg.ShowHolePunchRemoveDlg(hWnd) 
End Sub