有关text控件的sellength和selstart,该怎么处理

有关text控件的sellength和selstart
Private Sub Form_Load()
Text1.Text = "text1里面的字符被选中！"
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
End Sub

Private Sub Command1_Click()
Text1.Text = "为什么text1里面的字符没被选中？"
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
End Sub

------解决方案--------------------
Private Sub Form_Load()
Show
With Text1
.Text = "text1里面的字符被选中！"

.SelStart = 0
.SelLength = Len(Text1.Text)
.SetFocus
End With

End Sub

------解决方案--------------------
实际上是选中的。但由于点击按钮 Command1 使 Text1 失去焦点，你看不到反白显示。
试试用 Tab 键跳回 Text1，就看到选中了。
如果想按 Command1 后立即看到选中效果，要使 Text1 获得焦点。如下：

Private Sub Command1_Click()
Text1.Text = "为什么text1里面的字符没被选中？"
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
Text1.SetFocus
End Sub