ShowHolePunchRemoveDlg Example for Visual Basic

    Dim RasterImgDocDlg As New LEADRasterDlgImgDoc_U

    RasterImgDocDlg.HolePunchRemove.MinHoleCount = 2
    RasterImgDocDlg.HolePunchRemove.MaxHoleCount = 4
    RasterImgDocDlg.HolePunchRemove.MinHoleWidth = 1
    RasterImgDocDlg.HolePunchRemove.MinHoleHeight = 1
    RasterImgDocDlg.HolePunchRemove.MaxHoleWidth = 2
    RasterImgDocDlg.HolePunchRemove.MaxHoleHeight = 2
    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 = LEAD1.Bitmap
    RasterImgDocDlg.ShowHolePunchRemoveDlg (hWnd)