呵呵 还可以这样 text1.selstart＝0 ’选择起始位置text1.sellength＝65000 ’选择长度sellength文本框允许的最大长度（65535），这样做强迫VB使用文本的实际长度。
Private Sub Text2_GotFocus()Text2.SelStart = 0Text2.SelLength = Len(Text2.Text)End Sub
