datagridviewでキャレット位置取得

こちらはたいへんでした
Accessのように簡単にいきませんでした
あちこち調べて
On Error Resume Next

Dim TexteditCtrl As DataGridViewTextBoxEditingControl
TexteditCtrl = DirectCast(DataGridView1.EditingControl, DataGridViewTextBoxEditingControl)
Dim tb As DataGridViewTextBoxEditingControl = CType(TexteditCtrl, DataGridViewTextBoxEditingControl)
Dim startP As Long
Dim str As String
Dim strCount As Long
startP = tb.SelectionStart

str = “文字”
strCount = Len(str)

tb.SelectedText = str
tb.SelectionStart = startP + strCount

でなんとか取得して同位置に代入できますがキャレット位置はコマンドボタンのクリックイベントではできない
というかキャレットが消えてしまう
ここはAccessと同じです
なのでこれはラベルのクリックイベント　ラベルのボタン加工はAccessよりはるかに難しい
VSも良いですがAccessの良さも再認識してます