问一个有关richtextbox的问题

Question

用以下代码更改某些字的颜色时,滚动条会滚动到光标所在位置,会造成控件闪一下,请问如何避免?
      With rtfScript
            Dim lngTemp As Long
            lngTemp = .SelStart
            .SelStart = 1000
            .SelLength = 10
            .SelColor = vbBlue
            .SelStart = lngTemp
      End With

Answer 1

把 Dim lngTemp As Long 放在 With 的外面 

Answer 2

Private Declare Function LockWindowUpdate Lib "user32.dll" (ByVal hwndLock As Long) As Longlockwindowupdate rtfScript.hWnd
更改 rtfScript 
lockwindowupdate 0&