I hadn't thought of that, it seems to work. Thank you
Dim X = PointToClient(Control.MousePosition).X
If X <= Me.SelectionIndent Then
If Cursor = Cursors.Arrow Then
Exit Sub
End If
Cursor = Cursors.Arrow
Else
If Cursor = Cursors.IBeam Then
Exit Sub
End If
Cursor = Cursors.IBeam
End If