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