Private Sub Command1_Click()
With Text2
.SelStart = 0
.SelLength = Len(.Text)
.SetFocus
End With
End Sub
Private Sub Command1_Click()
Text2.SelStart = 0
Text2.SelLength = Len(Text2.Text)
Text2.SetFocus
End Sub
这样应该可以了
text2.SetFocus