(vb6小技巧)鼠标在文本框一按下就选中所有文字

很多软件都有鼠标在文本框TextBox一按下，就选中所有文字的功能，是怎么实现的？

Private Sub Text1_GotFocus()
        Text1.SelStart = 0
        Text1.SelLength = Len(Text1.Text)
End Sub

转载于:https://blog.51cto.com/tallbig/761290