Imports Infragistics.Win.UltraWinSpellChecker
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Ignore words with all capital letters
Me.spellChecker.SpellOptions.AllowCapitalizedWords = True
'Do not convert misspelled words to all lowercase before looking for suggestions.
'Me could cause "hEelo" and "heElo" to have different suggestions.
Me.spellChecker.SpellOptions.AllowCaseInsensitiveSuggestions = False
'Allow words with mixed case ("tHe" will not be a spelling mistake).
Me.spellChecker.SpellOptions.AllowMixedCase = True
'Any words with digits in them will be ignored
'("th4e" will not be a spelling mistake).
Me.spellChecker.SpellOptions.AllowWordsWithDigits = True
'Words between '<' and '>' will be spell checked.
Me.spellChecker.SpellOptions.AllowXml = False
'Allow compound words ("helloworld" is not a spelling mistake).
Me.spellChecker.SpellOptions.CheckCompoundWords = True
'Search for entire hyphenated words in the dictionary, not the separate parts.
'Me causes "hello-world" to be a spelling error.
'* - To see the effect of Me, SeparateHyphenWords below must be set to False
Me.spellChecker.SpellOptions.CheckHyphenatedText = False
'Decrease the consideration range for suggestions. Me will
'increase performance, but less suggestions will be found for errors.
Me.spellChecker.SpellOptions.ConsiderationRange = 5
'Don't include words from the user dictionary in te list of suggestions
Me.spellChecker.SpellOptions.IncludeUserDictionaryInSuggestions = False
'Use french grammar rules to aid the spell checker in reading the text
Me.spellChecker.SpellOptions.LanguageParser = LanguageType.French
'When a hyphated word is mispelled, only underline the part of the hyphenated
'word that is incorrect ("heelo-world" will only have "heelo" underlined).
Me.spellChecker.SpellOptions.SeparateHyphenWords = True
'When an error is detected to be two combined words, the minimum length
'of the suggested split words is four. "myhouse" would not have "my house" as a suggestion.
'* - SuggestSplitWords must be True and CheckCompoundWords must be False for Me property to take effect
Me.spellChecker.SpellOptions.SplitWordThreshold = 4
'Use phonetic suggestions for errors
Me.spellChecker.SpellOptions.SuggestionMethod = SuggestionsMethod.PHONETIC_SUGGESTIONS
'Don't suggest split words when an error is determined to be a
'compound of two correctly spelled word.
Me.spellChecker.SpellOptions.SuggestSplitWords = False
End Sub