相干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