Как после листинга в ListBox'se, не выделять строку, а только навести мышку и увидеть всю строку

' Создание расширения для ListBox: Свойство - «Вывод в виде подсказки ToolTyp длинных элементов списка»
Option Explicit
Private Declare Function SendMessage Lib 'user32' Alias 'SendMessageA' ( _
    ByVal hwnd As Long, _
    ByVal wMsg As Long, _
    ByVal wParam As Long, _
    lParam As Any) As Long
Private Const LB_ITEMFROMPOINT = &H1A9
Private Const m_def_ToolTipLong = True
Dim m_ToolTipLong As Boolean
'
Private Sub UserControl_Resize()
    List1.Move 0, 0, ScaleWidth, ScaleHeight
End Sub
'
Public Sub AddItem(ByVal Item As String, Optional ByVal Index As Variant)
    List1.AddItem Item, Index
End Sub
'
Private Sub UserControl_InitProperties()
    m_ToolTipLong = m_def_ToolTipLong
End Sub
'
' свойство руководит выводом или невыводом подсказки
Public Property Get ToolTipLong() As Boolean
    ToolTipLong = m_ToolTipLong
End Property
'
Public Property Let ToolTipLong(ByVal New_ToolTipLong As Boolean)
    m_ToolTipLong = New_ToolTipLong
    PropertyChanged 'ToolTipLong'
End Property
'
Private Sub List1_MouseMove(Button As Integer, Shift As Integer, X As Single, _
       Y As Single)
    Dim lXPoint As Long, lYPoint As Long, lIndex As Long
 
    'если не нажата никакая клавиша мыши и свойство ToolTipLong установлено в True
    If (Button = 0) And (m_ToolTipLong = True) Then
        'перевод в пикселы
        lXPoint = CLng(X / Screen.TwipsPerPixelX)
        lYPoint = CLng(Y / Screen.TwipsPerPixelY)
        With List1
            'выбирает индекс списка, в зависимости от позиции курсора
            lIndex = SendMessage(.hwnd, LB_ITEMFROMPOINT, 0, ByVal ((lYPoint * 65536) + lYPoint))
            'если курсор вне записей списка
            If (lIndex >= 0) And (lIndex <= .ListCount) Then
                .ToolTipText = .List(lIndex)
            Else
                .ToolTipText = vbNullString
            End If
        End With
    End If
End Sub
'
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
    m_ToolTipLong = PropBag.ReadProperty('ToolTipLong', m_def_ToolTipLong)
End Sub
'
Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
    Call PropBag.WriteProperty('ToolTipLong', m_ToolTipLong, m_def_ToolTipLong)
End Sub

Private Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type
Private Type POINTAPI
    X As Long
    Y As Long
End Type
Private Declare Function ClientToScreen Lib 'user32.dll' ( _
    ByVal hwnd As Long, _
    ByRef lpPoint As POINTAPI) As Long
Private Declare Function GetCursorPos Lib 'user32' ( _
    lpPoint As POINTAPI) As Long
Private Declare Function ScreenToClient Lib 'user32' ( _
    ByVal hwnd As Long, _