Declare Function GetCaretBlinkTime Lib "user32" () As Long
В успешном случае функция возвращает частоту мигания каретки в миллисекундах, в противном случае возвращается 0 (используйте GetLastError для получения кода ошибки).
Функция не имеет параметров.
' Определяем частоту мигания каретки
Print GetCaretBlinkTime()