RichTextBoxの検索が失敗します。 (ID:124637)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 Windows APIのSendMessage()を使用して、RichTextBox内のテキストを検索するプログラムを作成しているのですが、Windowsを起動してからプログラムを起動して検索を行うと、検索文字列が存在するにも関わらず、戻り値が-1で返ってきてしまいます。 しかし、しばらくすると何故か正常に検索されるようになります。Windowsを再起動して、また検索しても検索は上手く行きません。 原因がわからず困り果てています・・・。 以下は検索処理の抜粋です。 lngTextFindEx = FR_DOWN Or FR_MATCHCASE With udtFindTextEx With .chrg .cpMin = 0 'テキストの先頭から .cpMax = -1 '最後尾まで検索 End With '''''検索する文字列の指定 .lpstrText = strKey(i) End With lngFindPos = SendMessage(lngHWnd, EM_FINDTEXTEX, lngTextFindEx, udtFindTextEx) 環境は以下です。 OS:Windows XP Professional SP2 VB6