Comments by Gary_Corbell (Top 8 by date)

I tried your suggestion but no go. However, I then found my problem. The rich text box had a bitmap of a red line (used for separation of topics)at the very bottom of the richtextbox and on the next line after the text ended. When I removed that or when I put two new blank lines between the last text and the line, the text did not disappear. At least now I know. Thanks for your input.

Ok I will give that a try and let you know......thanks for replying.

Thanks for you reply, Gerry......yes that is what I tried. I inserted Refresh is several places in the code and still no luck. Here is the code:

If RTB1.Text.Length > 0 Then

Dim SpellCheckWords As String() = Nothing
///Invoke Microsoft Word Spell Checker routine
Dim objWord As Object = CreateObject("Word.Application")
Dim objDoc As Object = objWord.documents.add
'Hide the Word Application
objWord.Visible = False

///Show Spell Checker Window and load Spell Checker RichTextBox with RTF data from Helper
Check.Visible = True
Check.RTB1Check.Rtf = RTB1.Rtf

///Split the Rich Text into single words
sSpellCheckWords = Check.RTB1Check.Text.Split(CChar(" "))

///Check spelling of each word
Dim oldstart As Integer = -1
Dim OldLength As Integer = -1
For Each sWord As String In sSpellCheckWords
If objWord.CheckSpelling(sWord) = False Then
dEventFlag = True
///Find location and length of first misspelled word
Check.RTB1Check.SelectionStart = Check.RTB1Check.Find(sWord)
Check.RTB1Check.SelectionLength = sWord.Length

//Scroll to the next misspelled word.
Check.RTB1Check.ScrollToCaret()

///Set color of misspelled word to red
Check.RTB1Check.SelectionColor = Color.Red

///Keep track of selection start and selection length
oldstart = Check.RTB1Check.SelectionStart
OldLength = sWord.Length

/Get and add possible suggestions to the listbox for user viewing and use.
Dim oWordSuggestions As Microsoft.Office.Interop.Word.SpellingSuggestions
oWordSuggestions = objWord.GetSpellingSuggestions(sWord)
Dim n As Integer = 1
Do While n <= oWordSuggestions.Count
Check.ListBox1.Items.Add(oWordSuggestions.Item(n).Name)
n = n + 1
Loop

///Wait for user to select the correct spelling. The listbox1 indexchanged event sets the dEventFlag to false to continue
Do While dEventFlag = True
/// process messages from UI
Application.DoEvents()
Loop

///Replace the misspelled word with user selected word
Check.RTB1Check.SelectionStart = oldstart
Check.RTB1Check.SelectionLength = OldLength
Check.RTB1Check.SelectionColor = Color.Black
If Check.ListBox1.SelectedItem IsNot Nothing Then
Dim GetNewSpelling = Check.ListBox1.SelectedItem.ToString
Check.RTB1Check.SelectedText = ""
Check.RTB1Check.SelectedText = GetNewSpelling
End If
///clear the listbox and prepare to find and display next misspelling.
Check.ListBox1.Items.Clear()
End If
///After misspelled word is correct, reset the text color to black
Check.RTB1Check.SelectionColor = Color.Black
Next sWord
objDoc.close()
objWord.quit()
MessageBox.Show("Spell Check Complete")
///Transfer correct RTF to Main RichTextBox
RTB1.Rtf = Check.RTB1Check.Rtf
Check.Close()
End If
Me.Cursor = Cursors.Default

RTB1.Focus()
Me.Cursor = Cursors.Default
Me.BringToFront()