Hi George,

maybe something changed or is changing the blinking time.

Have a look at GetCaretBlinkTime and SetCaretBlinkTime

Option Explicit
' -----------------------

Declare Function SetCaretBlinkTime Lib "user32" _
(ByVal wMSeconds As Long) As Long
Declare Function GetCaretBlinkTime Lib "user32" () As Long

' ---------------

Sub Test539()
MsgBox GetCaretBlinkTime
SetCaretBlinkTime (500) ' half a second is a common value
End Sub

--
Greetings from Bavaria, Germany

Helmut Weber, MVP WordVBA

Win XP, Office 2003
"red.sys" & Chr$(64) & "t-online.de"