Private Sub treeview_mousedown(Button As Integer, Shift As Integer, _
                               x As Long, y As Long)
    Dim test As Node
 
    If Button = acRightButton Then
      Right = True  
      Set test = TreeView.HitTest(x, y)
        If test Is Nothing Then
            Exit Sub
          Else
            CommandBars("popup").showpopup
            chi.Selected = True
        End If
    End If

Dim chi As Node
 
    Do While rs.EOF = False
        Set chi = TreeView.Nodes.Add(parkunden.Index, tvwChild, , rs!Name)
    Loop