VB 版 (精华区)

□ 很多软件都有鼠标一按下文字框TextBox，就选中所有文
字的功能，是怎么实现的？
   Sub TextFocus(ctl As Control)   ’定义过程
       ctl.SelStart = 0
       ctl.SelLength = Len(ctl.Text)
   End Sub
   Private Sub Text1_GotFocus()
       TextFocus Text1          ’过程调用
   End Sub