如题：vb6中鼠标可以点击文本框就会全部选择并且字体颜色变成蓝色。
Private Sub Text100_GotFocus()
Text100.SelStart = 0
Text100.SelLength = Len(Text100.Text)
End Sub

那么在  该如何搞定？谢谢

倒，这里还没有百度问
已经搞定啦
    Private Sub TextBox1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.Click
        TextBox1.SelectAll()
    End Sub