|
|
|
| Title | Change the TextBox cursor blink rate |
|---|
| Keywords | caret, cursor, blink rate, blink speed |
|---|
| Categories | Controls, Utilities, Windows |
|---|
|
|
|
Use the GetCaretBlinkTime and SetCaretBlinkTimeAPI functions.
|
|
Private Sub CmdApply_Click()
Dim new_rate As Long
On Error GoTo RateError
new_rate = CLng(NewRate.Text)
SetCaretBlinkTime new_rate
RateError:
End Sub
Private Sub Form_Load()
Dim txt As String
txt = Format$(GetCaretBlinkTime())
OldRate.Caption = txt
NewRate.Text = txt
NewRate.SelStart = 0
NewRate.SelLength = Len(txt)
Me.Show
NewRate.SetFocus
End Sub
|
| |
|
| |
|
|
