怎样做到 双击文本框后 那样的效果！

[LuYao]

双击文本框后 ，文本框的内容全部被选取且背景色为变蓝！！！

[danielinbiti]

Private Sub Text1_DblClick()
Text1.SelLength = Len(Text1.Text)
End Sub

[LuYao]

多谢！
结账！