Treeview clic droit

Bonjour,en travaillant avec un treeview j'ai remarque qu'il m'etait impossible de faire clic droit sur un node(noeud) pour que celui-ci puisse apparaitre dans un msgbox montrant le nom du node.
exemple:

Option Explicit
Public Const Treeviewl_project As String = "Treeview demo"

Public Enum emouse
    leftclick = 1
    rightclick = 2
End Enum

Private Sub TreeView1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As stdole.OLE_XPOS_PIXELS, ByVal y As stdole.OLE_YPOS_PIXELS)
If Button = emouse.rightclick Then
   'MsgBox "You rightclicked"
   Dim nodX As Node
   
   Set nodX = TreeView1.HitTest(x, y)
   If nodX Is Nothing Then
      'user clicked empty space
      MsgBox "Empty space"
      'Call RightClickEmptySpace
   Else
      'user clicked a node
      MsgBox nodX.Text
   End If
End If
End Sub

mon probleme se trouve au niveau <MsgBox nodX.Text> cela ne fait rien quand clic sur un node.