Private Declare Function SetCaretBlinkTime Lib "user32" Alias _
  "SetCaretBlinkTime" (ByVal wMSeconds As Long) As Long
 
Public Declare Function GetCaretBlinkTime Lib "user32" Alias _
  "GetCaretBlinkTime" () As Long
 
Private MergeCaretTime As Long
 
 
Private Sub Blinkenaus(Byval nSek As Long)
      MergeCaretTime = GetCaretBlinkTime
      SetCaretBlinkTime = nSek
End Sub
 
Private Sub Blinkenan()
     SetCaretBlinkTime = MergeCaretTime
End Sub