Get Caret Flash Speed

'Add a module to your project (In the menu choose Project -> Add Module, Then click Open)
'Add 1 Command Button and 1 Timer to your form.
'Insert this code to the module :

Declare Function GetCaretBlinkTime Lib "user32" () As Long

'Insert the following code to your form:

Private Sub Command1_Click()
Timer1.Interval = GetCaretBlinkTime
scrCaretFlash = GetCaretBlinkTime
MsgBox "Caret Flash Speed = " & GetCaretBlinkTime & "ms"
End Sub