VB テキストボックス Readonly Focus = false

'キャレットの使用宣言をする
Private Declare Function HideCaret Lib "user32.dll" (ByVal hwnd As IntPtr) As Boolean
'MouseDownイベント　追加
Private Sub TextBoxFolder_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TextBoxFolder.MouseDown
'テキストボックスのキャレットを非表示にする
HideCaret(TextBoxFolder.Handle)
End Sub

Microsoft Visual Studio Professional 2013 通常版