Private Declare Function SetCaretPos Lib "user32" (ByVal X As Long, ByVal Y As _
  Long) As Long
Private Declare Function ShowCaret Lib "user32" (ByVal hwnd As Long) 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 CreateBitmap Lib "gdi32" (ByVal nWidth As Long, ByVal _
nHeight As Long, ByVal nPlanes As Long, ByVal nBitCount As Long, lpBits As _
Integer) As Long
 
Public Function Show(X As Long, Y As Long)
    CreateCaret Form1.hwnd, CreateBitmap(10, 14, 1, 1, 10), 1, 14
    SetCaretPos X, Y
    ShowCaret Form1.hwnd
End Function