就像图上这样，窗体启动的时候，这个文本框里的数值自动用蓝色加亮，应该怎么做？？？

Private Sub Form_Activate()
Text1.SetFocus
Text1.SelLength = Len(Text1)
End Sub

谢谢，再问下SelLength是什么？

我按照你说的还是达不到那种效果啊？！

Private Sub Form_Load()
Text1.TabIndex = 0
Text1.SelStart = 0
Text1.SelLength = Len(Text1)
End Sub

这个可以，但是如果我需要把多个文本框都在启动的时候加亮也是这样写吗？

应该只有一个控件可以得到焦点啊!
如果你要点哪个 哪个得到焦点的话 应该是


Private Sub Text1_GotFocus()
ssGotFocus Text1
End Sub

'可以直接调用下面的过程来解决
Private Sub ssGotFocus(InText As TextBox)
InText.SelStart = 0
InText.SelLength = Len(InText)
End Sub

是这样的，我的窗体上放了一个SSTab1控件，我给这个控件上设置了3个页面，每个页面上都有一个文本框，
窗体启动之后，打开每个页面，上面的文本框里的内容都是用光标加亮的，不是点哪个文本框哪个得到焦点，而是点每个页面，每个页面上的文本框获得焦点。。。。。。。

该怎么做出这种效果？？？

Private Sub Form_Load()
SSTab1.Tab = 0
Text1.TabIndex = 0
ssGotFocus Text1
End Sub

Private Sub SSTab1_Click(PreviousTab As Integer)
Select Case SSTab1.Tab
Case 0
ssGotFocus Text1
Text1.SetFocus
Case 1
ssGotFocus Text2
Text2.SetFocus
Case 2
ssGotFocus Text3
Text3.SetFocus
Case Else
End Select

End Sub
Private Sub ssGotFocus(InText As TextBox)
InText.SelStart = 0
InText.SelLength = Len(InText)
End Sub

对了，我要的就是这个效果！！！太感谢你了！！！