よろしくお願いします。

リッチテキストボックス内にファイルをドラッグ&ドロップします。
テキストの文字に色をつけるのですが、
一回、初期化をするために、以下のように、全文字列の文字色を黒にしています。

　　With rtfFile
    　　strText = .Text  
        .SelStart = 0
        .SelLength = Len(strText)
        .SelColor = vbBlack
    End With

ファイルサイズが1.3MB、テキストが、10000行ほどで、Len(strText)=1326063 ほどでやると
.SelLengthの部分で固まってしまいます。

これを固まらずに、全文字列の色を変えたいのです。
よろしくお願いします。

下記を試して見て下さい

Option Explicit
Private Declare Function SendMessage Lib "user32" _
    Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, _
        ByVal wParam As Long, lParam As Any) As Long
Private Const EM_SETSEL = &HB1

Private Sub Command1_Click()
    RichTextBox1.SetFocus
    SendMessage RichTextBox1.hwnd, EM_SETSEL, 0, ByVal -1&
    RichTextBox1.SelColor = QBColor(12)
    SendMessage RichTextBox1.hwnd, EM_SETSEL, -1, ByVal -1&
End Sub

花ちゃんさん、ありがとうございました。

教えていただいた方法で、
うまく、テキストの文字色を変えれました。