<code><font color=green>' zunächst die benötigten API-Deklarationen</font>
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
 
<font color=green>' Ändert die Größe der Einfügemarke
' hWnd = hWnd der Textbox
' nWidth = neue Breite in Pixel
' nHeight = neue Höhe in Pixel</font>
Public Sub SetNewCaret(hWnd As Long, ByVal nWidth As Long, ByVal nHeight As _
  Long)
   CreateCaret hWnd, 0, nWidth, nHeight
   ShowCaret hwnd
End Sub</code>