Imports Infragistics.Win.UltraWinSpellChecker
Private Sub spellChecker_SpellChecking(ByVal sender As System.Object, ByVal e As SpellCheckingEventArgs) Handles spellChecker.SpellChecking
Debug.WriteLine("The following text has been spell checked: """ + e.Text.Substring(e.Offset, e.Length) + """")
End Sub
Private Sub spellChecker_SpellChecked(ByVal sender As System.Object, ByVal e As SpellCheckedEventArgs) Handles spellChecker.SpellChecked
Debug.WriteLine( _
"The following text has been spell checked: """ + _
e.Text.Substring(e.Offset, e.Length) + _
""" and " + e.Errors.Count.ToString() + _
" errors were found.")
End Sub