Caret Blink Time

'Caret Blink Time

'Need 1Textbox



Private Declare Function SetCaretBlinkTime
Lib "user32" _

(ByVal wMSeconds As Long)
As Long

Private Declare Function GetCaretBlinkTime
Lib "user32" () As
Long



Dim nOldBT As Long



Private Sub Form_Load()

'retrieve the current caret blinktime

nOldBT = GetCaretBlinkTime

'set the new caret blinktime

SetCaretBlinkTime 1

Me.Caption = "RockessAlpha.blogspot.com"

Text1.Text = "Click here!"

End Sub



Private Sub Form_Unload(Cancel
As Integer)

'restore the old caret blinktime

SetCaretBlinkTime nOldBT

End Sub