关于TooltipText属性的使用

yanyi66

当鼠标放到列表框的某一条目时，如果该条目的长度超过了列表框的宽度，则通过
TooltipText属性来显示该条目的详细内容。
我从网上抄了一段代码，但是用于VB上的，放在VBA里发现不行。
请各位多多指教！
问题如图：

方漠

UserForm加宽一点， 将LISTBOX拉宽，第一列宽度设宽一些即可。
代码中的问题应该出在MouseMove没能准确的捕捉到当前移到了哪行上。

yanyi66

2# 方漠
图片中的代码复制如下：
Private Sub Listbox1_MouseMove
(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim Ypos As Integer, iOldFontSize As Integer
iOldFontSize = Me.Font.Size
Me.Font.Size = Listbox1.Font.Size
Ypos = Y \ Me.TextHeight("Xyz") + Listbox1.TopIndex
Me.Font.Size = iOldFontSize
If Ypos < Listbox1.ListCount Then
Listbox1.ToolTipText = Listbox1.List(Ypos)
Else
Listbox1.ToolTipText = ""
End If
End Sub