カーソル(キャレット)の幅の変更

Windowsのテキスト入力時のカーソル(キャレット)って、なんで細い線なんでしょうか。
DOSの頃のカーソルは太くて見やすかったのにって思っている方は、カーソル(キャレット)の幅を変更してみてください。

業務アプリケーションで一時的に、カーソルの幅を変更したい場合

VB.NET
Private Declare Function CreateCaret Lib "user32" _
 (ByVal hWnd As IntPtr, ByVal hBitmap As IntPtr, _
  ByVal nWidth As Integer, _
  ByVal nHeight As Integer) As <MARSHALAS(UNMANAGEDTYPE.BOOL)>Boolean
Private Declare Function ShowCaret Lib "user32" _
 (ByVal hWnd As IntPtr) As <MARSHALAS(UNMANAGEDTYPE.BOOL)>Boolean
 CreateCaret(TextBox1.Handle, IntPtr.Zero, 15, 15)
 ShowCaret(TextBox1.Handle)