Imports Infragistics.Win.UltraWinSpellChecker
'A hastable of the auto corrections.
'The key is the erroneous word, and the value is the word to replace it with.
Private autoCorrections As Hashtable = New Hashtable()
Private Sub ultraSpellChecker1_SpellError(ByVal sender As Object, ByVal e As SpellErrorEventArgs) _
Handles ultraSpellChecker1.SpellError
'If the erroneous word is in the list of auto corrections...
If (Me.autoCorrections.ContainsKey(e.SpellingError.CheckedWord)) Then
'Set the action to replace
e.Action = SpellErrorAction.Replace
'Set the replacement word
e.ReplaceWord = Me.autoCorrections(e.SpellingError.CheckedWord)
End If
End Sub