主题：鼠标位置

此主题相关图片如下：5440c8587f37077aceedcc2183c7cf9e.png

e.Form.Controls("TextBox1").Select

鼠标进入TextBox1自动在2018的8后边，请老师指教，谢谢！

如果是点击textbox后要这样mouseup写代码

e.Sender.SelectionStart = e.sender.text.length

如果要焦点进入就是这样，设置属性->初始光标位置->CaretAtEnd

老师还有个问题，2018禁止删除，2018后面可以删除或输入，代码？

textchanged事件

If e.sender.text.StartsWith("2018") = False Then
    e.sender.text = "2018"
    e.sender.SelectionStart = 5
End If

谢谢