' nécessite une textbox
' capture visible ici : http://img138.imageshack.us/img138/6844/tten8.jpg
Public Class Form1
Private Declare Sub CreateCaret Lib "user32" (ByVal hwnd As Integer, ByVal hBitmap As Integer, ByVal nWidth As Integer, ByVal nHeight As Integer)
Private Declare Function ShowCaret Lib "user32" (ByVal hwnd As Integer) As Integer
Dim Img As New Bitmap("D:\c.jpg")
Private Sub TextBox1_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.GotFocus
Dim h As Integer = TextBox1.Handle
Dim p As Integer = Img.GetHbitmap.ToInt32
CreateCaret(h, p, 0, 0)
ShowCaret(h)
End Sub
Private Sub Form1_Disposed(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Disposed
Img.Dispose()
End Sub
End Class