Private Sub TreeView1_MouseDown(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) Handles TreeView1.MouseDown
 
        'Einen Punkt deklarieren
        Dim Punkt As New Point(e.X, e.Y)
 
        Me.TreeView1.SelectedNode = Me.TreeView1.GetNodeAt(Punkt)
 
        If Me.TreeView1.MouseButtons = MouseButtons.Right Then
            If Not Me.TreeView1.SelectedNode Is Nothing Then
                Me.Text = Me.TreeView1.SelectedNode.Text
            End If
        End If
 
    End Sub