主题：[分享]showtooltip多行显示代码

汗，没这么麻烦

Dim s As String = "奥斯都发酥覅哦啊速递发生地发哦深刻的佛啊是自行车阿斯达克佛"
Dim str As String = ""
Dim c As Integer = Math.Floor(s.length / 10)
For i As Integer = 0 To c - 1
    str &= s.SubString(i*10, 10) & vbcrlf
Next
str &= s.SubString(c*10) & vbcrlf

msgbox(str)