这是因为你点击按钮后，text1失去了输入焦点啊；而点击窗体时，text1的焦点没有丢失。改成这样就行了：
Private Sub Command1_Click()
Text1.SetFocus
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
End Sub
Private Sub Form_Click()
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ号：24596024