怎么 在text空件 中 获得鼠标选取的文本

如何 在text空件 中 获得鼠标选取的文本
如何   在text空件   中   获得鼠标选取的文本

------解决方案--------------------
dim a as string
a=text1.seltext
------解决方案--------------------
楼主还可用SelLength,属性进行判断