Imports Infragistics.Win.UltraWinSpellChecker
Private Sub spellChecker_WordCorrected(ByVal sender As System.Object, ByVal e As WordCorrectedEventArgs) Handles spellChecker.WordCorrected
If (e.Source = WordCorrectionSource.SpellCheckDialog) Then
MessageBox.Show( _
"The user has choosen to correct """ + _
e.OriginalWord + _
""" with """ + _
e.CorrectedWord + _
""" through the spell check dialog.")
ElseIf (e.Source = WordCorrectionSource.SpellErrorEvent) Then
MessageBox.Show( _
"The word """ + _
e.OriginalWord + _
""" has been automatically corrected to """ + _
e.CorrectedWord + _
""" through the SpellError event.")
End If
End Sub