求一提示窗源码，要求在允许的范围内，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