如何在图片框中实现鼠标闪烁的效果，象文本框那样

Question

需要在图片框实现数据录入，请问如何在图片框中实现鼠标闪烁的效果，象文本框那样？有什么api函数可以实现么？

Answer 1

需要的函数声明：
Option Explicit
Private Declare Function GetCaretBlinkTime Lib "user32" _
        () As Long
Private Declare Function SetCaretBlinkTime Lib "user32" _
        (ByVal wMSeconds As Long) As Long
Private Declare Function GetCaretPos Lib "user32" _
        (lpPoint As POINTAPI) As Long
Private Declare Function SetCaretPos Lib "user32" _
        (ByVal X As Long, ByVal Y As Long) As Long
Private Declare Function DestroyCaret Lib "user32" () _
        As Long
Private Declare Function CreateCaret Lib "user32" _
        (ByVal hwnd As Long, ByVal hBitmap As Long, _
        ByVal nWidth As Long, ByVal nHeight As Long) _
        As Long
Private Declare Function ShowCaret Lib "user32" (ByVal _
        hwnd As Long) As Long
Private Type POINTAPI
  X As Long
  Y As Long
End Type