OK, this is better.

VB Code:
  1. Option Explicit

  2. Private mNode As MSComctlLib.Node

  3.  
  4. Public Property Get PreviousNode() As MSComctlLib.Node

  5.  
  6.     Set PreviousNode = mNode

  7.  
  8. End Property

  9.  
  10. Public Property Let PreviousNode(ByVal pNode As MSComctlLib.Node)

  11.  
  12.     Set mNode = pNode

  13.  
  14. End Property

  15.  
  16. Private Sub Treeview1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)

  17.     Dim MouseOverNode As MSComctlLib.Node

  18.     

  19.     On Error Resume Next

  20.     

  21.     PreviousNode.BackColor = vbWhite

  22.     Set MouseOverNode = Treeview1.HitTest(x, y)

  23.     MouseOverNode.BackColor = vbBlue

  24.     PreviousNode = MouseOverNode

  25.  
  26. End Sub