Private Sub TreeView1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
Dim nd As Node
Set nd = TreeView1.HitTest(x, y)
If nd Is Nothing Then
TreeView1.ToolTipText = vbNullString
Else
TreeView1.ToolTipText = nd.Text
End If
End Sub