应该是很简单的有关问题：如果做到点击文本框，光标移动到文本框的最后一个字符后面，而且点击处与最后字符不会被选择

应该是很简单的问题：如果做到点击文本框，光标移动到文本框的最后一个字符后面，而且点击处与最后字符不会被选择。
我是这样做的：
Private   Sub   Text1_MouseDown(Button   As   Integer,   Shift   As   Integer,   X   As   Single,   y   As   Single)
        '点击鼠标，光标将会移动到最后一个字符
        Text1.SelStart   =   Len(Text1.Text)
        Text1.SelLength   =   0
End   Sub

可是这样之后，文本框中点击的字符到最后的字符会被选择，就是变成蓝底白字。
如何不显示这样的“被选择”，只是让光标移动到文本框中最后一个字符的后面？

[解决办法]
你的代码没问题啊。
[解决办法]
Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, y As Single)
'点击鼠标，光标将会移动到最后一个字符
Text1.SelStart = Len(Text1.Text)+1 '在原长度上加1不就得了~~

End Sub


[解决办法]
Private Sub Form_Load()
Text1 = "点击鼠标，光标将会移动到最后一个字符 "
End Sub

Private Sub Text1_Click()
Text1.SelStart = Len(Text1) + 1
End Sub