ShowInvertTextDlg Example for Visual Basic

    Dim RasterImgDocDlg As New LEADRasterDlgImgDoc_U
    
    RasterImgDocDlg.InvertedText.MinInvertWidth = 900
    RasterImgDocDlg.InvertedText.MinInvertHeight = 56
    RasterImgDocDlg.InvertedText.MinBlackPercent = 75
    RasterImgDocDlg.InvertedText.MaxBlackPercent = 95
    RasterImgDocDlg.WhiteAreaColor = RGB(255, 0, 0)
    RasterImgDocDlg.BlackAreaColor = RGB(0, 0, 255)

    RasterImgDocDlg.InvertedText.Flags = INVERTEDTEXT_USE_DIAGONALS Or INVERTEDTEXT_USE_DPI
    RasterImgDocDlg.UIFlags = INVERTEDTEXT_AUTOPROCESS Or _
                              INVERTEDTEXT_SHOW_PREVIEW Or _
                              INVERTEDTEXT_SHOW_TOOL_ZOOMLEVEL

    RasterImgDocDlg.Bitmap = LEAD1.Bitmap
    RasterImgDocDlg.ShowInvertTextDlg (hWnd)