Изменение интервала мерцания курсора

'функция, возвращающая текущую скорость мерцания курсора
'в миллисекундах (не требует параметров)

Private Declare Function GetCaretBlinkTime Lib "user32" () As Long
'а эта функция устанавливает скорость равную переданому ей параметру
Private Declare Function SetCaretBlinkTime Lib "user32" (ByVal wMSeconds As Long) As Long

'отображаем текущую скорость 'мерцания курсора
Text1.Text = GetCaretBlinkTime

'установки скорости скорости мерцания
Call SetCaretBlinkTime(Text1.Text)

Обсудить статью на форуме

Если Вас заинтересовала или понравилась информация программирование на Visual Basic - "Изменение интервала мерцания курсора", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу:

Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!