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

Формулировка задачи:

Как показать весь текст в ListBox'se при scroll и наведя мышку? Такая ситуация, я листаю ползунком строки и, попадаются длинные, в окошке видать только часть. Если кликнуть по окну, то произойдет еще и какое то действие... При этом в свойсиве: List2_MouseMove указно, что: List2.ToolTipText = List2.Text 'Т.е., я также увижу всю строку. Но так как что-то происходит при этом. мне не надо раньше времени. А вот как после листинга не выделять строку, а только навести мышку и увидеть всю строку ??? Спасибо!

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

textual
                            Листинг программы 
                        

                            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, _
                        