VB程序界面上，有几个文本框，每个文本框都有预设值，如：第一个文本框为15，第二个为20，运行时按Tab键，输入焦点由第一个文本框跳到第二个，鼠标为“I”型，并没有把当前文本框的值选中，如何设置才能将“I”变为块型，并选中当前文本框的20呢？

我一直找不到如何设置，  请高人帮忙。。

谢谢

没得设置,自己写代码
在文本框的Got_focus事件中写入
text1.selstart=1
text1.sellength=len(text1.text)

谢谢了哥们，我初学，还是不会设置，
能给写详细些不？

谢谢。。

谢谢哥们，刚才写了如下程序，好了
不过每个文本框都要一个sub不好看呀，我的界面至少10个框，能不能用一个sub把他们都写进去呢？
Private Sub Txtxs_GotFocus()
        Dim bIsErr As Boolean
        
        bIsErr = TxtXS
        If bIsErr = True Then
        
        TxtXS.SelStart = 0
        TxtXS.SelLength = Len(TxtXS.Text)
        End If
End Sub
Private Sub Txtfen_GotFocus()
        Dim bIsErr As Boolean
        
        bIsErr = TxtFen
        If bIsErr = True Then
        
        TxtFen.SelStart = 0
        TxtFen.SelLength = Len(TxtFen.Text)
        End If
End Sub
Private Sub TxtNian_GotFocus()
        Dim bIsErr As Boolean
        
        bIsErr = TxtNian
        If bIsErr = True Then
        
        TxtNian.SelStart = 0
        TxtNian.SelLength = Len(TxtNian.Text)
        End If
End Sub

用控件数组

谢谢哥们了，