VB关于TAB切换文本框的问题

Question

如何在用TAB切换文本框的时候！切换到哪个文本框就自动选定里面的内容？

Answer 1

比如有二个文本框：Text1,Text2Private Sub Text1_LostFocus()
        Text2.SelStart = 0
        Text2.SelLength = Len(Text2.Text)
End Sub
或者：Private Sub Text2_GotFocus()
        Text2.SelStart = 0
        Text2.SelLength = Len(Text2.Text)
End Sub

Answer 2

Private Sub TextSelectAll(ByVal AText As TextBox)
        AText.SelStart = 0
        AText.SelLength = Len(AText.Text)
End Sub
Private Sub Text1_GotFocus()
TextSelectAll Text1
End Sub
Private Sub Text2_GotFocus()
TextSelectAll Text2
End Sub
Private Sub Text3_GotFocus()
TextSelectAll Text3
End Sub
Private Sub Text4_GotFocus()
TextSelectAll Text4
End Sub
Private Sub Text5_GotFocus()
TextSelectAll Text5
End Sub