求一提示窗源码，要求在允许的范围内，Tooltip会跟随鼠标移动求一提示窗源码，要求在允许的范围内，Tooltip会
求一提示窗源码，要求在允许的范围内，Tooltip会跟随鼠标移动
求一提示窗源码，要求在允许的范围内，Tooltip会跟随鼠标移动
谢谢。。！！！
有这样的源码的朋友拿出来分享下，谢谢！！
[解决办法]
这段代码效果还不错
Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text1.ToolTipText = ""
Text1.ToolTipText = "ssssssssssssssssfsdgvdfsv"
End Sub