ShowInvertTextDlg Example for Visual Basic

Private Sub InvertText_Click()
   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 = LEADRasterView1.Raster
   RasterImgDocDlg.ShowInvertTextDlg(hWnd) 
End Sub