如何正确使用TreeView的HitTest方法？

Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function GetDeviceCaps Lib "gdi32" (ByVal hdc As Long, ByVal nindex As Long) As Long
Private PixX2TwipX As Double '像素转换成缇
Private PixX2TwipY As Double
Private Const LOGPIXELSX = 88
Private Const LOGPIXELSY = 90
Private Sub TreeView1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As stdole.OLE_XPOS_PIXELS, ByVal y As stdole.OLE_YPOS_PIXELS)
If Not TreeView1.HitTest(x * PixX2TwipX, y * PixX2TwipY) Is Nothing Then Label1.Caption = TreeView1.HitTest(x * PixX2TwipX, y * PixX2TwipY).Text
End Sub
''初始化窗体
Private Sub UserForm_Initialize()
Dim Dep1 As Node
Dim Dep2 As Node
Dim i As Long
Dim Arr
On Error Resume Next
Arr = Range("A2:C" & Range("A65536").End(xlUp).Row)
With TreeView1
For i = 1 To UBound(Arr)
Set Dep1 = .Nodes(Arr(i, 2))
If Err.Number <> 0 Then
Err.Clear
Set Dep1 = .Nodes.Add(Key:=Arr(i, 2), Text:=Arr(i, 2))
End If
Set Dep2 = .Nodes(Arr(i, 3))
If Err.Number <> 0 Then
Err.Clear
Set Dep2 = .Nodes.Add(relative:=Dep1, relationship:=tvwChild, Key:=Arr(i, 3), Text:=Arr(i, 3))
End If
.Nodes.Add relative:=Dep2, relationship:=tvwChild, Key:=i & Arr(i, 1), Text:=Arr(i, 1)
Next
Set Dep1 = .Nodes("人事")
End With
PixX2TwipX = Application.InchesToPoints(1) * 20 / GetDeviceCaps(GetDC(0), LOGPIXELSX)
PixX2TwipY = Application.InchesToPoints(1) * 20 / GetDeviceCaps(GetDC(0), LOGPIXELSY)
End Sub