CaretTxt

' CreateCaret create the new caret

' ShowCaret shows the new caret

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()
' When the user activates the text box,

' change the caret.

' TIP: Instead of using 0 for the second

' parameter in

' CreateCaret, use vbNull for a cool effect.

CreateCaret Text1.hwnd, 0, 5, 12
ShowCaret Text1.hwnd
End Sub