回车焦点下移并选中解决方案

回车焦点下移并选中
If KeyAscii = 13 Then
SendKeys "{TAB} " 
End If 

我是这么处理的 但是现在要连文本的内容都选中 还要加什么
PS：要通用的不是专门指某个文本，不是 Text1.SelLength = Len(Text1.Text)这样子的


[解决办法]

VB code

 SendKeys "{Home}+{End}"
[解决办法]
VB code
If KeyAscii = 13 ThenSendKeys "{TAB} "   SendKeys "{Home}+{End}"End If