Option Explicit

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 Sub Text1_GotFocus()
Call CreateCaret(Text1.hwnd, 0, 7, 12)
Call ShowCaret(Text1.hwnd)
End Sub