You'll need the following Windows functions: Private Declare Function CreateCaret Lib "User32" (ByVal hWnd As Long, ByVal hBitmap As Long, ByVal X As Long, ByVal Y As Long) As Long 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 DestroyCaret Lib "User32" () As Long When you receive the focus, call the CreateCaret function. Private Sub MyControl_GotFocus() DestroyCaret End Sub Which is cumbersome, but works. Some final remarks: