Rychlost blikání kurzoru
Založte nový projekt, na formulář vložte tlačítko, timer a label. Ve formuláři deklarujte:
Declare Function GetCaretBlinkTime Lib "user32" () As Long
Na událost Click tlačítka:
Private Sub Command1_Click()
Timer1.Interval = GetCaretBlinkTime
scrCaretFlash = GetCaretBlinkTime
label1.caption = "Rychlost blikání kurzoru = "
& GetCaretBlinkTime & " ms"
End Sub