Home
Search
 
What's New
Index
Books
Links
Q & A
Newsletter
Banners
 
Feedback
Tip Jar
 
C# Helper...
 
XML RSS Feed
Follow VBHelper on Twitter
 
 
MSDN Visual Basic Community
 
 
 
 
 
TitleChange the TextBox cursor blink rate
Keywordscaret, cursor, blink rate, blink speed
CategoriesControls, 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
 
 
Copyright © 1997-2010 Rocky Mountain Computer Consulting, Inc.   All rights reserved.
  Updated