i00 Spell Check and Control Extensions - No Third Party Components Required!

That's allowed, i00 people, provided use-credit is given on this page, right?

Private Sub MyControl_Load(sender As Object, e As EventArgs) Handles Me.Load
If Me.FindForm IsNot Nothing AndAlso Me.FindForm.IsHandleCreated Then
   '   form present
   DoThisOnLoad()
 Else
   '   form not present
   DoThatOnLoad()
End If
End Sub

Private Sub MyControl_HandleCreated(sender As Object, e As EventArgs) Handles Me.HandleCreated
If Me.FindForm IsNot Nothing AndAlso Me.FindForm.IsHandleCreated Then
   '   form present
   DoThisOnHandleCreated()
 Else
   '   form not present
   DoThatOnHandleCreated()
End If
End Sub

Private Sub MyControl_HandleDestroyed(sender As Object, e As EventArgs) Handles Me.HandleDestroyed
If Me.FindForm IsNot Nothing AndAlso Me.FindForm.IsHandleCreated Then
   '   form present
   DoThisOnHandleDestroyed()
 Else
   '   form not present
   DoThatOnHandleDestroyed()
End If
End Sub

Private Sub MyControl_Disposed(sender As Object, e As EventArgs) Handles Me.Disposed
If Me.FindForm IsNot Nothing AndAlso Me.FindForm.IsHandleCreated Then
   '   form present
   DoThisOnDisposed()
 Else
   '   form not present
   DoThatOnDisposed()
End If
End Sub

#Region "Extended Text Reading"
 Public Module ExtendedTextReading
	'   private components

	'      constants
	Private Const WM_USER As Int32 = &H400&
	Private Const EM_GETSCROLLPOS As Integer = WM_USER + 221, _
		EM_SETSCROLLPOS As Integer = WM_USER + 222
	Private Const WM_SETREDRAW As Integer = &HB
	Private Const HiddenTextSyntax As String = "(^|[^\\])(\\\\)*\\v[^0]", _
		ProtectedTextSyntax As String = "(^|[^\\])(\\\\)*\\protect[^0]"

	'      variables
	Private HiddenTextChecker As Regex = _
			New Regex(HiddenTextSyntax, _
				RegexOptions.IgnoreCase Or RegexOptions.Compiled Or RegexOptions.ExplicitCapture), _
		ProtectedTextChecker As Regex = _
			New Regex(ProtectedTextSyntax, _
				RegexOptions.IgnoreCase Or RegexOptions.Compiled Or RegexOptions.ExplicitCapture)

	'      DLL imports

	'         for scrolling
	<DllImport("user32.dll")> _
	Private Function SendMessage(ByVal hWnd As IntPtr, ByVal msg As Int32, _
		ByVal wParam As Int32, ByRef lParam As Point) As Int32
	End Function
	'         for auto-redraw setting
	<DllImport("user32.dll")> _
	Private Function SendMessage(ByVal hWnd As IntPtr, ByVal msg As Int32, _
		ByVal wParam As Integer, ByVal lParam As Integer) As Int32
	End Function

	'   public components

	'      enums

	''' <summary>
	''' Enum to flag whether a word contains hidden and/or protected text
	''' </summary>
	<Flags()> _
	Public Enum TypeOfText
		Normal = 0
		Hidden = 1
		[Protected] = 2
	End Enum

	'      extension methods

	''' <summary>
	''' Determine if TypeOfText value has certain flags
	''' (This method isn't automatically supported until .NET Framework 4!)
	''' </summary>
	''' <param name="TypeFlag">TypeOfText flags to text</param>
	''' <returns>True if all flags in TypeFlag are set in TextType, else False</returns>
	<System.Runtime.CompilerServices.Extension()> _
	Public Function HasFlag(ByVal TextType As TypeOfText, _
		ByVal TypeFlag As TypeOfText) As Boolean
		Return (TextType And TypeFlag) = TypeFlag
	End Function

	''' <summary>
	''' Get current scroll position
	''' </summary>
	''' <returns>Point structure with horizontal and vertical scroll positions</returns>
	<System.Runtime.CompilerServices.Extension()> _
	Public Function GetScrollPosition(TextBox As TextBoxBase) As Point
	'   get scroll position of RichTextBox
	Dim RTBScrollPoint As Point = Nothing
	SendMessage(TextBox.Handle, EM_GETSCROLLPOS, 0, RTBScrollPoint)
	Return RTBScrollPoint
	End Function

	''' <summary>
	''' Set scroll position
	''' </summary>
	''' <param name="RTBScrollPoint">Point structure with horizontal and vertical scroll positions</param>
	<System.Runtime.CompilerServices.Extension()> _
	Public Sub SetScrollPosition(TextBox As TextBoxBase, _
		ByVal RTBScrollPoint As Point)
	'   set scroll position of RichTextBox
	SendMessage(TextBox.Handle, EM_SETSCROLLPOS, 0, RTBScrollPoint)
	End Sub

	''' <summary>
	''' Turn redraw mode on or off
	''' </summary>
	''' <param name="OnOrOff">True to enable redrawing, False to disable it</param>
	<System.Runtime.CompilerServices.Extension()> _
	Public Sub SetRedrawMode(TextBox As TextBoxBase, _
		ByVal OnOrOff As Boolean)
	'   set redraw mode
	SendMessage(TextBox.Handle, WM_SETREDRAW, CType(OnOrOff, Integer) And 1, 1)
	If OnOrOff Then
		TextBox.Refresh()
	End If
	End Sub


	''' <summary>
	''' Gets full length of selected text, including any hidden text
	''' </summary>
	''' <returns>Full length of selection</returns>
	''' <remarks>This is different from the SelectionLength property only when
	''' the host program is targeted for .NET Framework 4.7 or later, TextBox is
	''' a RichTextBox, and hidden text is present in document</remarks>
	<System.Runtime.CompilerServices.Extension()> _
	Public Function FullSelectionLength(TextBox As TextBoxBase) As Integer
		If TypeOf TextBox IsNot RichTextBox Then
			'   standard text box
			Return TextBox.SelectionLength
		End If
		'   rich text box--get start and end of selection
		Dim RichTextBox As RichTextBox = DirectCast(TextBox, RichTextBox)
		Dim TypeRTB As Type = RichTextBox.GetType
		Dim fi As FieldInfo = _
			TypeRTB.GetField("curSelStart", _
				BindingFlags.Instance Or BindingFlags.NonPublic)
		Dim nCurSelStart As Integer = CType(fi.GetValue(RichTextBox), Integer)
		fi = TypeRTB.GetField("curSelEnd", _
			BindingFlags.Instance Or BindingFlags.NonPublic)
		Dim nCurSelEnd As Integer = _
			Math.Min(CType(fi.GetValue(RichTextBox), Integer), RichTextBox.TextLength)
		If nCurSelStart = -1 AndAlso nCurSelEnd = -1 Then
			Return 0
		Else
			Return _
				nCurSelEnd - nCurSelStart
		End If
	End Function

	''' <summary>
	''' Gets full plain text of rich-text box (or selection thereof),
	''' including any hidden text
	''' </summary>
	''' <param name="SelectionOnly">True to get only selected text,
	''' False (default) to get entire text</param>
	''' <returns>Full plain text, be it entire document or selection</returns>
	''' <remarks>This is different from the Text or SelectedText property only when
	''' the host program is targeted for .NET Framework 4.7 or later, TextBox is a
	''' RichTextBox, and hidden text is present in document</remarks>
	<System.Runtime.CompilerServices.Extension()> _
	Public Function ExtendedText(TextBox As TextBoxBase, _
		Optional SelectionOnly As Boolean = False) As String
		If TypeOf TextBox IsNot RichTextBox Then
			'   standard text box
			If SelectionOnly Then
				Return TextBox.SelectedText
			Else
				Return TextBox.Text
			End If
		End If
		'   rich text box--get plain text including any hidden text
		Dim RichTextBox As RichTextBox = DirectCast(TextBox, RichTextBox)
		Dim TypeRTB As Type = RichTextBox.GetType
		'   access private WindowText property
		Dim prop As PropertyInfo = _
			TypeRTB.GetProperty("WindowText", _
				BindingFlags.Instance Or BindingFlags.NonPublic)
		Dim Text As String = _
			CType(prop.GetValue(RichTextBox, {}), String).Replace(ControlChars.Cr, "")
		If SelectionOnly Then
			'   get start and end of selection
			Dim fi As FieldInfo = _
				TypeRTB.GetField("curSelStart", _
					BindingFlags.Instance Or BindingFlags.NonPublic)
			Dim nCurSelStart As Integer = CType(fi.GetValue(RichTextBox), Integer)
			fi = TypeRTB.GetField("curSelEnd", _
				BindingFlags.Instance Or BindingFlags.NonPublic)
			Dim nCurSelEnd As Integer = _
				Math.Min(CType(fi.GetValue(RichTextBox), Integer), Text.Length)
			'   extract substring
			If (nCurSelStart = -1 AndAlso nCurSelEnd = -1) _
					OrElse nCurSelStart = nCurSelEnd Then
				Text = "" 'no selection
			Else
				Text = Text.Substring(nCurSelStart, nCurSelEnd - nCurSelStart)
			End If
		End If
		Return Text
	End Function


	''' <summary>
	''' Determine whether a given word in a text bocx or rich text box
	''' is wholly or partially hidden/protected
	''' </summary>
	''' <param name="StartIndex">Start of word in TextBox</param>
	''' <param name="WordLength">Length of word in TextBox</param>
	''' <returns>Value indicating if word contains hidden text, protected text, both, or neither</returns>
	<System.Runtime.CompilerServices.Extension()> _
	Public Function GetTextType(TextBox As TextBoxBase, _
		ByVal StartIndex As Integer, ByVal WordLength As Integer) As TypeOfText
		Dim TextType As TypeOfText = TypeOfText.Normal 'assume normal at first
		If TypeOf TextBox Is RichTextBox Then
			Dim RichTextBox As RichTextBox = DirectCast(TextBox, RichTextBox)
			With RichTextBox
				'   save current selection and select word
				Dim CurrentStart As Integer = .SelectionStart, CurrentLength As Integer = .SelectionLength
				.Select(StartIndex, WordLength)
				'   set flags as needed
				If HiddenTextChecker.IsMatch(.SelectedRtf) _
						OrElse .SelectionLength < WordLength Then
					TextType = TextType Or TypeOfText.Hidden
				End If
				If .SelectionProtected _
						OrElse ProtectedTextChecker.IsMatch(.SelectedRtf) Then
					TextType = TextType Or TypeOfText.Protected
				End If
				'   restore original selection
				.Select(CurrentStart, CurrentLength)
			End With
		End If
		Return TextType
	End Function


#End Region

	 Private Function CanChangeWord(ByVal StartIndex As Integer, ByVal Length As Integer) As Boolean
	 '   verify that word isn't protected or semi-protected, and
	 '   isn't hidden or semi-hidden unless we can spell-check hidden text
	 If Length = 0 Then
		Return False 'can't spell-check a non-existant word!
	  ElseIf Me.TextBox Is Nothing OrElse TypeOf Me.TextBox Is TextBox Then
		Return True 'standard text box--no protected or hidden text
	 End If
	 '   rich text box--look for hidden/protected text
	 With Me.TextBox
		Dim TextType As TypeOfText = .GetTextType(StartIndex, Length)
		Select Case True
			Case TextType.HasFlag(TypeOfText.Protected)
				Return False 'can't spell-check protected text
			Case TextType.HasFlag(TypeOfText.Hidden)
				Return SpellCheckHiddenText 'can only spell-check hidden text if asked to
			Case Else
				Return True 'can always spell-check normal text
		End Select
	 End With
	 End Function

    Private Sub UpdateDocument()
        'Dim DocumentText As String = ""
        Dim DocumentText As New System.Text.StringBuilder
        Dim UpTo = 0
		  Dim UsesTextBox As Boolean = Me.TextBox IsNot Nothing
        For Each item In mc_Words
            RemoveHandler item.UpdateClassEvent, AddressOf UpdateClassEvent
            RemoveHandler item.SelectionChangedEvent, AddressOf WordSelectionChangedEvent
            RemoveHandler item.UpdateWordEvent, AddressOf UpdateWordEvent
        Next
        mc_Words.Clear()
		  Dim ScrollPosition As Point
		  If UsesTextBox Then
			  Me.TextBox.SetRedrawMode(False)
			  ScrollPosition = Me.TextBox.GetScrollPosition()
		  End If
		  Try
			  For Each item In _
						Dictionary.Formatting.RemoveWordBreaks(mc_Text).Split(" "c)
					Dim ThisWordItem = New SpellCheckDialogWords(item, UpTo, CanChangeWord(UpTo, item.Length))
					AddHandler ThisWordItem.UpdateClassEvent, AddressOf UpdateClassEvent
					AddHandler ThisWordItem.SelectionChangedEvent, AddressOf WordSelectionChangedEvent
					AddHandler ThisWordItem.UpdateWordEvent, AddressOf UpdateWordEvent
					mc_Words.Add(ThisWordItem)
					If ThisWordItem.OrigWord <> "" Then
						 DocumentText.Append("<a href='" & mc_Words.Count - 1 & "' class='Pending' id='" _
							& mc_Words.Count - 1 & "'>" & ThisWordItem.OrigWord & "</a>")
					End If
					UpTo += item.Length + 1
					If UpTo <= mc_Text.Length Then
						 DocumentText.Append(mc_Text.Substring(UpTo - 1, 1).Replace("&", "&"))
					End If
			  Next item
		   Finally
			  If UsesTextBox Then
				  Me.TextBox.SetScrollPosition(ScrollPosition) : Me.TextBox.SetRedrawMode(True)
			  End If
		  End Try
        mc_AllowNavigation = True
        MyBase.DocumentText = HTMLStyle() & "<BODY onselectstart='return false;'>" & System.Text.RegularExpressions.Regex.Replace(DocumentText.ToString, "\r\n|\n\r|\r|\n", "<BR>")
        mc_AllowNavigation = False
    End Sub

#End Region

'   (Public Class SpellCheckDialogWords 'nested class)

		  Public CanChangeWord As Boolean

        Public Sub New(ByVal OrigWord As String, _
				Optional ByVal StartIndex As Integer = 0, _
				Optional ByVal CanChangeText As Boolean = True)
            Me.OrigWord = OrigWord : mc_NewWord = OrigWord
				Me.CanChangeWord =  CanChangeText : Me.StartIndex = StartIndex
        End Sub

        Public OrigWord As String
        Dim mc_NewWord As String
        
		  Public Property NewWord(Optional ByVal Autoupdate As Boolean = True) As String
            Get
                Return mc_NewWord
            End Get
            Set(ByVal value As String)
					 If Me.CanChangeWord AndAlso value <> mc_NewWord Then
	                mc_NewWord = value : Me.Changed = True
					    If Autoupdate Then
						     UpdateWord()
						 End If
					 End If
            End Set
        End Property
'   (End Class 'nested class)

#Region "Constructors"
 	 Public TextBox As TextBoxBase = Nothing
	 Public SpellCheckHiddenText As Boolean = False

    Public Sub New(Optional TextBox As TextBoxBase = Nothing, _
		Optional ByVal SpellCheckHiddenText As Boolean = False)
        MyBase.AllowWebBrowserDrop = False
        MyBase.IsWebBrowserContextMenuEnabled = False
		  Me.TextBox = TextBox : Me.SpellCheckHiddenText = SpellCheckHiddenText
    End Sub

#End Region

#Region "Other Public Subs"
     'Sets the HTML to the document string
    Dim mc_Text As String

    Private Settings As New SpellCheckSettings

    Public Sub SetText(Optional ByVal Text As String = "", Optional ByVal Settings As SpellCheckSettings = Nothing)
        If Settings IsNot Nothing Then Me.Settings = Settings
		  If String.IsNullOrEmpty(Text) AndAlso Me.TextBox IsNot Nothing Then
				mc_Text = Me.TextBox.ExtendedText()
			Else
				mc_Text = Text
		  End If
        UpdateDocument()
    End Sub

    Private Sub extTextBoxContextMenu_MenuOpening(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles extTextBoxContextMenu.MenuOpening

        'If ContextMenuStrip.SourceControl Is parentTextBox Then
        'SpellMenuItems.RemoveSpellMenuItems()

        If OKToSpellCheck Then
            SpellMenuItems.ContextMenuStrip = extTextBoxContextMenu.ContextMenuStrip
            If Settings.IgnoreWordOverride(extTextBoxContextMenu.MenuSpellClickReturn.Word) Then
					'word is in caps etc...
             Else
'   make sure word isn't wholly/partly protected or hidden
					With extTextBoxContextMenu.MenuSpellClickReturn
						Beep
						parentTextBox.SetRedrawMode(False)
						Dim ScrollPosition As Point = parentRichTextBox.GetScrollPosition()
						Dim TextType As TypeOfText = parentTextBox.GetTextType(.WordStart, .Word.Length)
						If TextType = TypeOfText.Normal Then
							'   word can be changed		               SpellMenuItems.AddItems(.Word, CurrentDictionary, CurrentDefinitions, CurrentSynonyms, Settings)
						End If
parentRichTextBox.SetScrollPosition(ScrollPosition)
						parentTextBox.SetRedrawMode(True)
					End With
            End If
        End If
        'Else
        ''no word clicked on
        'End If

    End Sub

	 Private SourceTextBox As TextBoxBase, SpellCheckHiddenText As Boolean, ShowingSuggestions As Boolean


	 Private Function EnablingWordChange(Word As HTMLSpellCheck.SpellCheckDialogWords) As Boolean
	 '   should we enable word-changing controls?
	 Return ShowingSuggestions AndAlso Word.CanChangeWord
	 End Function

   Public Overloads Function ShowDialog(ByVal owner As TextBoxBase, _
		ByVal SpellCheckControlBase As SpellCheckControlBase, Optional ByVal Text As String = "", _
		Optional ByVal SpellCheckHiddenText As Boolean = False) As List(Of HTMLSpellCheck.SpellCheckDialogWords)
        Me.SourceTextBox = owner : Me.SpellCheckHiddenText = SpellCheckHiddenText
		  Me.SpellCheckControlBase = SpellCheckControlBase
		  If String.IsNullOrEmpty(Text) Then
				Text = owner.ExtendedText()
		  End If
		  With HtmlSpellCheck1
			  .TextBox = owner : .SpellCheckHiddenText = SpellCheckHiddenText
			  .Dictionary = SpellCheckControlBase.CurrentDictionary
			  .SetText(Text)
		  End With
        pbChangeAll.Maximum = HtmlSpellCheck1.Words.Count - 1
		  If HtmlSpellCheck1.Words.Count > 0 AndAlso Not EnablingWordChange(HtmlSpellCheck1.Words(0)) Then
			  '   make sure we don't start with a word that can't be spell-checked due to protected/hidden status
			  btnChange.Enabled = False : btnSkip_Click(btnSkip, EventArgs.Empty)
		  End If
        MyBase.StartPosition = FormStartPosition.CenterParent
        MyBase.ShowDialog(owner)
        Return HtmlSpellCheck1.Words
    End Function

    Private Function SelectedWord() As HTMLSpellCheck.SpellCheckDialogWords
		Dim sw As HTMLSpellCheck.SpellCheckDialogWords = _
			(From xItem In HtmlSpellCheck1.Words Where xItem.Selected).FirstOrDefault
		btnChange.Enabled = _
			sw IsNot Nothing AndAlso EnablingWordChange(sw)
		Return sw
    End Function

    Private Sub HtmlSpellCheck1_SelectionChanged(ByVal sender As Object, ByVal e As HTMLSpellCheck.HTMLWordEventArgs) _
		Handles HtmlSpellCheck1.SelectionChanged
        If pnlSuggestions.InvokeRequired Then
            Dim HtmlSpellCheck1_SelectionChanged_cb As New HtmlSpellCheck1_SelectionChanged_cb(AddressOf HtmlSpellCheck1_SelectionChanged)
            pnlSuggestions.Invoke(HtmlSpellCheck1_SelectionChanged_cb, sender, e)
         Else
            FillSuggestions()
            ShowHideSuggestions(True)
            txtChangeTo.Focus()
				btnChange.Enabled = _
					e.Word IsNot Nothing AndAlso EnablingWordChange(e.Word)
            ChangeToUseOldWord = True
            txtChangeTo_TextChanged(txtChangeTo, EventArgs.Empty)
            ChangeToChanged = False
				If e.Word.Selected AndAlso Not btnChange.Enabled Then
					MoveToNextWordError()
				End If
        End If
    End Sub

Private Sub ShowHideSuggestions(ByVal Show As Boolean)
		  ShowingSuggestions = Show
        If pnlSuggestions.InvokeRequired Then
            Dim ShowHideSuggestions_cb As New ShowHideSuggestions_cb(AddressOf ShowHideSuggestions)
            pnlSuggestions.Invoke(ShowHideSuggestions_cb, Show)
        Else
            Dim theSelectedWord = SelectedWord()

            pnlSuggestions.Visible = Show

            btnIgnore.Enabled = Show AndAlso theSelectedWord IsNot Nothing AndAlso theSelectedWord.Changed = False AndAlso theSelectedWord.SpellCheckState <> HTMLSpellCheck.SpellCheckDialogWords.SpellCheckStates.OK

            btnSkip.Enabled = Show AndAlso (From xItem In HtmlSpellCheck1.Words Where (xItem.SpellCheckState = HTMLSpellCheck.SpellCheckDialogWords.SpellCheckStates.Error OrElse xItem.SpellCheckState = HTMLSpellCheck.SpellCheckDialogWords.SpellCheckStates.Case) AndAlso xItem IsNot theSelectedWord).Count > 0
				tstbChangeTo.Enabled = _
					MenuCurrentWord IsNot Nothing AndAlso EnablingWordChange(MenuCurrentWord)
            btnRevert.Enabled = Show AndAlso theSelectedWord IsNot Nothing AndAlso theSelectedWord.Changed = True
            btnChangeAll.Enabled = Not ChangeingAll AndAlso (From xItem In HtmlSpellCheck1.Words Where (xItem.SpellCheckState = HTMLSpellCheck.SpellCheckDialogWords.SpellCheckStates.Case OrElse xItem.SpellCheckState = HTMLSpellCheck.SpellCheckDialogWords.SpellCheckStates.Error)).Count > 0
            btnRevertAll.Enabled = (From xItem In HtmlSpellCheck1.Words Where xItem.Changed = True).Count > 0
        End If

    End Sub

    Private Sub txtChangeTo_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtChangeTo.KeyUp
        Select Case e.KeyCode
            Case Keys.Apps
                e.Handled = True
                'had to do this as the line above doesn't work for app button :(...
                If txtChangeTo.ContextMenu Is Nothing Then
                    txtChangeTo.ContextMenu = New ContextMenu
                End If
                'now show the html spell check context menu!
                Dim theSelectedWord = SelectedWord()
                If theSelectedWord IsNot Nothing Then
                    MenuCurrentWord = theSelectedWord
						  tstbChangeTo.Enabled = _
								MenuCurrentWord IsNot Nothing AndAlso EnablingWordChange(MenuCurrentWord)
                    UpdateMenuItems()
                    OpenedByClick = False
                    cmsHTMLSpellCheck.Show(HtmlSpellCheck1, Point.Empty)
                End If
        End Select
    End Sub

    Private Sub SpellMenuItems_WordChanged(ByVal sender As Object, ByVal e As Menu.AddSpellItemsToMenu.SpellItemEventArgs) Handles SpellMenuItems.WordChanged
		  If MenuCurrentWord.CanChangeWord Then
	        MenuCurrentWord.NewWord = e.Word
		     MenuCurrentWord.SpellCheckState = HTMLSpellCheck.SpellCheckDialogWords.SpellCheckStates.OK
		  End If
        WordUpdatedFromMenu()
    End Sub

    Private Sub tstbChangeTo_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles tstbChangeTo.KeyPress
        If e.KeyChar = vbCr Then
			   If MenuCurrentWord.CanChangeWord Then
					'   word is unprotected--change it
	            MenuCurrentWord.NewWord = tstbChangeTo.Text
		         'assume this word is correct since it is user-entered...
			      MenuCurrentWord.SpellCheckState = HTMLSpellCheck.SpellCheckDialogWords.SpellCheckStates.OK
				 Else
					'   protected word--include just in case (shouldn't land here!)
					Beep() : MessageBox.Show("This word is protected and/or hidden!")
			   End If
            UpdateMenuItems()
            WordUpdatedFromMenu()
        End If
    End Sub

    Private Sub UpdateMenuItems()
        If Replace(Dictionary.Formatting.RemoveWordBreaks(MenuCurrentWord.NewWord), " ", "") = MenuCurrentWord.NewWord Then
            SpellMenuItems.ContextMenuStrip = cmsHTMLSpellCheck
            SpellMenuItems.RemoveSpellMenuItems()
				If MenuCurrentWord.CanChangeWord Then
	            SpellMenuItems.AddItems(MenuCurrentWord.NewWord, SpellCheckControlBase.CurrentDictionary, SpellCheckControlBase.CurrentDefinitions, SpellCheckControlBase.CurrentSynonyms, SpellCheckControlBase.Settings)
				End If
        End If
        mtsChangeTo.Text = "Change " & MenuCurrentWord.NewWord & " to:"
        tstbChangeTo.Text = MenuCurrentWord.NewWord
        tsiRevertTo.Text = "Revert to " & MenuCurrentWord.OrigWord
        tsiRevertTo.Visible = MenuCurrentWord.Changed
        'hrm... had to put this in as the location did not get updated the first go otherwise???
        cmsHTMLSpellCheck_LocationChanged(cmsHTMLSpellCheck, EventArgs.Empty)
    End Sub

    Private Sub HtmlSpellCheck1_WordSpellChecked(ByVal sender As Object, ByVal e As HTMLSpellCheck.HTMLWordEventArgs) Handles HtmlSpellCheck1.WordSpellChecked

        If pbChangeAll.Visible Then
            Dim Progress As Integer = HtmlSpellCheck1.Words.IndexOf(e.Word)
            pbChangeAll.SafeInvoke(Function(x As ProgressBar) InlineAssignHelper(x.Value, Progress))
        End If

        pnlPleaseWait.SafeInvoke(Function(x As Panel) InlineAssignHelper(x.Visible, True))
        If e.Word.SpellCheckState = HTMLSpellCheck.SpellCheckDialogWords.SpellCheckStates.Error OrElse e.Word.SpellCheckState = HTMLSpellCheck.SpellCheckDialogWords.SpellCheckStates.Case Then
            If ChangeingAll Then
                Dim Suggestions = GetSuggestions(e.Word.NewWord)
                If Suggestions.Count > 0 AndAlso e.Word.CanChangeWord Then
                    'change to first
	                 e.Word.NewWord = Suggestions.First
                    e.Word.SpellCheckState = HTMLSpellCheck.SpellCheckDialogWords.SpellCheckStates.OK
                    If SelectedWord() Is e.Word Then
                        HtmlSpellCheck1_SelectionChanged(HtmlSpellCheck1, New HTMLSpellCheck.HTMLWordEventArgs() With {.Word = e.Word})
                    End If
                End If
                Exit Sub
            End If
            If pnlSuggestions.Visible = False Then
                'select this word :)
                e.Word.Selected = True
            End If
            ShowHideSuggestions(pnlSuggestions.Visible)

            'If btnSkip.Enabled = False Then
            '    Dim SelectedWord = Me.SelectedWord()
            '    Dim btnSkipEnabled = (From xItem In HtmlSpellCheck1.Words Where (xItem.SpellCheckState = HTMLSpellCheck.SpellCheckDialogWords.SpellCheckStates.Error OrElse xItem.SpellCheckState = HTMLSpellCheck.SpellCheckDialogWords.SpellCheckStates.Case) AndAlso xItem IsNot SelectedWord).Count > 0
            '    If btnSkip.Enabled <> btnSkipEnabled Then
            '        btnSkip.SafeInvoke(Function(x As Button) InlineAssignHelper(x.Enabled, btnSkipEnabled))
            '    End If
            'End If
        End If
    End Sub

    Private Function MoveToNextWordError(Optional ByVal DoRecheck As Boolean = True) As Boolean
	 With HtmlSpellCheck1
			MoveToNextWordError = False
        'find the selected word
        Dim StartIndex = 0
        Dim theSelectedWord = SelectedWord()
        If theSelectedWord IsNot Nothing Then
				theSelectedWord.Selected = False 'deselect current word
            StartIndex = .Words.IndexOf(theSelectedWord) + 1
        End If
ReCheck:
        For i = StartIndex To .Words.Count - 1
				If .Words(i) IsNot Nothing Then
	            Select Case .Words(i).SpellCheckState
		            Case HTMLSpellCheck.SpellCheckDialogWords.SpellCheckStates.Error, _
								HTMLSpellCheck.SpellCheckDialogWords.SpellCheckStates.Case
							If .Words(i).CanChangeWord Then
				            '   select word if we're allowed to change it
					         .Words(i).Selected = True
						      MoveToNextWordError = True : Exit Function
							End If
				   End Select
					If .Words(i).Selected Then
						.Words(i).Selected = False 'deselect word if it's selected
					End If
				End If
        Next
        'if we got here ... start over?
        If DoRecheck Then
            If StartIndex = 0 Then
                CompleteSpellCheck() : Exit Function 'already checked from the start
            End If
            StartIndex = 0
            GoTo ReCheck
        End If
	 End With
    End Function

    Private Sub btnChange_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnChange.Click
        Dim theSelectedWord = SelectedWord()
        If theSelectedWord IsNot Nothing Then
				If theSelectedWord.CanChangeWord Then
					'   word is unprotected--change it
	            theSelectedWord.NewWord = txtChangeTo.Text
		         theSelectedWord.SpellCheckState = HTMLSpellCheck.SpellCheckDialogWords.SpellCheckStates.OK
				 Else
					'   protected word--included just in case (shouldn't land here!)
					Beep() : MessageBox.Show("This word is protected and/or hidden!")
				End If
        End If
        btnSkip_Click(btnSkip, EventArgs.Empty)
        ShowHideSuggestions(pnlSuggestions.Visible)
    End Sub

	 Private Sub StartChangeAll()
    btnAdd.Enabled = False
    ChangeingAll = True
    If mt_ChangeAll IsNot Nothing AndAlso mt_ChangeAll.IsAlive Then
        mt_ChangeAll.Abort()
    End If
    Dim SelectedWord = Me.SelectedWord
   NewTextForChangeAll = txtChangeTo.Text
	OldTextForChangeAll = SelectedWord.OrigWord
   If SelectedWord IsNot Nothing Then
        SelectedWord.Selected = False
    End If
    ShowHideSuggestions(False)

    btnChangeAll.Enabled = False
    mt_ChangeAll = New System.Threading.Thread(AddressOf ChangeAll)
    mt_ChangeAll.Name = "Spell Check - Change all"
    mt_ChangeAll.IsBackground = True
    mt_ChangeAll.Start()
	End Sub

	Private Sub ChangeAll()

    'Dim st = Now

    Dim WordErrors = _
		(From xItem In HtmlSpellCheck1.Words _
			Where String.Compare(xItem.OrigWord, OldTextForChangeAll, True) = 0 _
				AndAlso (xItem.SpellCheckState = _
						HTMLSpellCheck.SpellCheckDialogWords.SpellCheckStates.Case _
					OrElse xItem.SpellCheckState = _
						HTMLSpellCheck.SpellCheckDialogWords.SpellCheckStates.Error))
    For Each item In WordErrors.ToArray
       '   word in question found
		 If item.CanChangeWord Then
			 '   word is unprotected--change it
          Dim Suggestions = GetSuggestions(item.NewWord)
	       If Suggestions.Count > 0 Then
		       If String.IsNullOrEmpty(NewTextForChangeAll) Then
			       'change to first if no text offered
				    item.NewWord = Suggestions.First
				  Else
		          '   change to offered text
			       item.NewWord = NewTextForChangeAll
			    End If
	          item.SpellCheckState = HTMLSpellCheck.SpellCheckDialogWords.SpellCheckStates.OK
		       If SelectedWord() Is item Then
			       HtmlSpellCheck1_SelectionChanged(HtmlSpellCheck1, _
						New HTMLSpellCheck.HTMLWordEventArgs() With {.Word = item})
				 End If
			 End If
		  Else
			 '   protected word
			 Beep()
		 End If
    Next
    btnRevertAll.SafeInvoke(Function(x As Button) InlineAssignHelper(x.Enabled, True))

    'complete... unless...
    If HtmlSpellCheck1.mt_SpellCheck IsNot Nothing _
			AndAlso HtmlSpellCheck1.mt_SpellCheck.IsAlive Then
       '... we are still spell checking :(
	  Else
       Dim btnChangeAllEnabled = _
			(From xItem In HtmlSpellCheck1.Words _
				Where (xItem.SpellCheckState = _
						HTMLSpellCheck.SpellCheckDialogWords.SpellCheckStates.Case _
					OrElse xItem.SpellCheckState = _
						HTMLSpellCheck.SpellCheckDialogWords.SpellCheckStates.Error)).Count > 0
       ChangeingAll = False
       If btnChangeAllEnabled = True Then
          '...or we have words left that suggestions could not be found for...
          btnChangeAll.SafeInvoke(Function(x As Button) _
				InlineAssignHelper(x.Enabled, btnChangeAllEnabled))
          btnSkip_Click(btnSkip, EventArgs.Empty)
        Else
          CompleteSpellCheck()
       End If
    End If

    'MsgBox(Now.Subtract(st).TotalMilliseconds)

	End Sub

	 Private Sub AddWordButton(ByVal CaseSensitive As Boolean)
        Dim theSelectedWord = SelectedWord()
        If theSelectedWord IsNot Nothing Then
            'change the word...
				Dim WordCanBeChanged As Boolean = theSelectedWord.CanChangeWord
            Dim Word As String = txtChangeTo.Text
            If ChangeToChanged = False Then
                Word = theSelectedWord.NewWord
             Else
                theSelectedWord.NewWord = Word
            End If
				Try
		         If SpellCheckControlBase.CurrentDictionary.SpellCheckWord(Word) <> i00SpellCheck.Dictionary.SpellCheckWordError.OK Then
	                If CaseSensitive = False Then
						     Word = LCase(Word)
						End If
						AddWordToDict(Word, theSelectedWord)
					End If
				 Finally
					If Not WordCanBeChanged Then
						'   word is protected
						theSelectedWord.NewWord = theSelectedWord.OrigWord
						theSelectedWord.Changed = False
					End If
				End Try
        End If
        'move next
        btnSkip_Click(btnSkip, EventArgs.Empty)
    End Sub

    Private Sub cmsHTMLSpellCheck_Opening(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles cmsHTMLSpellCheck.Opening
        If OpenedByClick Then
            Dim pCursor = Cursor.Position
            Dim pHtml = HtmlSpellCheck1.PointToScreen(New Point(0, 0))
            pCursor.X = pCursor.X - pHtml.X
            pCursor.Y = pCursor.Y - pHtml.Y

            Dim element = HtmlSpellCheck1.Document.GetElementFromPoint(pCursor)
            If element IsNot Nothing AndAlso element.Id <> "" Then
                Dim ElementNo As Integer
                If IsNumeric(Integer.TryParse(element.Id, ElementNo)) AndAlso HtmlSpellCheck1.Words.Count > ElementNo Then
                    MenuCurrentWord = HtmlSpellCheck1.Words.Item(ElementNo)
						  tstbChangeTo.Enabled = _
							  MenuCurrentWord IsNot Nothing AndAlso EnablingWordChange(MenuCurrentWord)
                    UpdateMenuItems()
                Else
                    e.Cancel = True
                End If
            Else
                e.Cancel = True
            End If
        Else
            OpenedByClick = True
        End If
    End Sub

#Region "Show spellcheck dialog"
     Public Sub ShowDialog(Optional ByVal SpellCheckHiddenText As Boolean = False) Implements iSpellCheckDialog.ShowDialog
        If CurrentDictionary IsNot Nothing AndAlso CurrentDictionary.Loading = False Then
            Using SpellCheckDialog As New SpellCheckDialog
                Dim SpellCheckResults = _
						SpellCheckDialog.ShowDialog(parentTextBox, Me, _
							parentTextBox.ExtendedText, SpellCheckHiddenText)

                'update the text box...

                'lock window from updating
                DrawSpellingErrors = False
                extTextBoxCommon.LockWindowUpdate(Control.Handle)
                Control.SuspendLayout()
                Dim SelStart = parentTextBox.SelectionStart
                Dim SellLength = parentTextBox.FullSelectionLength


                'Dim mc_parentRichTextBox = TryCast(parentTextBox, RichTextBox)
                If parentRichTextBox IsNot Nothing Then
                    'rich text box :(... use alternate method ... this will ensure that the formatting isn't lost
                    'qwertyuiop - would be nicer if this did this in one undo move...
						  Dim Offset As Integer = 0
                    For Each word In (From xItem In SpellCheckResults Where xItem.Changed = True AndAlso xItem.NewWord <> xItem.OrigWord).ToArray.Reverse
                        parentRichTextBox.Select(word.StartIndex - Offset, word.OrigWord.Length)
								parentRichTextBox.SelectedText = word.NewWord
                    Next
                    CType(parentRichTextBox, TextBoxBase).ClearUndo()
                Else
                    'standard text box .. can just replace all of the text

                    'Get old scroll bar position
                    Dim OldVertPos = extTextBoxCommon.GetScrollBarLocation(parentTextBox)

                    Dim NewText As String = parentTextBox.ExtendedText
                    For Each word In (From xItem In SpellCheckResults Where xItem.Changed = True AndAlso xItem.NewWord <> xItem.OrigWord).ToArray.Reverse
                        NewText = Strings.Left(NewText, word.StartIndex) & _
                                  word.NewWord & _
                                  Strings.Right(NewText, Len(NewText) - (word.StartIndex + word.OrigWord.Length))
                    Next

                    'replace the text
                    parentTextBox.Text = NewText

                    'Set scroll bars to what they were
                    extTextBoxCommon.SetScrollBarLocation(parentTextBox, OldVertPos) ' set Vscroll to last saved pos.
                End If

                parentTextBox.SelectionStart = SelStart
                parentTextBox.SelectionLength = SellLength

                'unlock window updates
                DrawSpellingErrors = True
                Control.ResumeLayout()
                extTextBoxCommon.LockWindowUpdate(IntPtr.Zero)

            End Using
        End If
    End Sub

#End Region

Friend ChangeCaseWithF3 As Boolean = True

<System.Runtime.CompilerServices.Extension()> _
Public Sub SetF3CasingOption(ByVal sender As Control, _
   Optional ByVal ChangeCase As Boolean = True)
ChangeCaseWithF3 = ChangeCase
End Sub

Private Sub parentTextBox_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles mc_TextBox.KeyUp
    Select Case e.KeyCode
        Case Keys.F3
            'cycle through case's ... sentence, proper, upper, lower, origional
                 If ChangeCaseWithF3 Then
                    CycleCase()
                 End If
    End Select
End Sub

''' <summary>
''' Determine whether a given word in a text bocx or rich text box
''' is wholly or partially hidden/protected
''' </summary>
''' <param name="StartIndex">Start of word in TextBox</param>
''' <param name="WordLength">Length of word in TextBox</param>
''' <returns>Value indicating if word contains hidden text, protected text, both, or neither</returns>
<System.Runtime.CompilerServices.Extension()> _
Public Function GetTextType(TextBox As TextBoxBase, _
    ByVal StartIndex As Integer, ByVal WordLength As Integer) As TypeOfText
    Dim TextType As TypeOfText = TypeOfText.Normal 'assume normal at first
    If TypeOf TextBox Is RichTextBox Then
        Dim RichTextBox As RichTextBox = DirectCast(TextBox, RichTextBox)
        With RichTextBox
            '   save current selection and select word
            Dim ScrollPosition As Point = .GetScrollPosition()
            Dim CurrentStart As Integer = .SelectionStart, _
                CurrentLength As Integer = .FullSelectionLength
            .Select(StartIndex, WordLength)
            '   set flags as needed
            If .SelectionProtected _
                    OrElse ProtectedTextChecker.IsMatch(.SelectedRtf) Then
                TextType = TextType Or TypeOfText.Protected
            End If
            If HiddenTextChecker.IsMatch(.SelectedRtf) Then
                TextType = TextType Or TypeOfText.Hidden
             ElseIf .SelectionLength < WordLength _
                    AndAlso Not TextType.HasFlag(TypeOfText.Protected) Then
                '   contains hidden text not parsable in SelectedRtf
                '   (platform >= .NET Framework 4.7)
                TextType = TextType Or TypeOfText.Hidden
                '   look for protected text character by character
                For position As Integer = StartIndex To StartIndex + WordLength - 1
                    .Select(position, 1)
                    If .SelectionProtected Then
                        TextType = TextType Or TypeOfText.Protected : Exit For
                    End If
                Next position
            End If
            '   restore original selection
            .Select(CurrentStart, CurrentLength) : .SetScrollPosition(ScrollPosition)
        End With
    End If
    Return TextType
End Function