Private Sub TreeView1_AfterSelect(ByVal sender As System.Object, ByVal e As _
     System.Windows.Forms.TreeViewEventArgs) Handles TreeView1.AfterSelect
        Dim tn As TreeNode
        tn = e.Node
        AktuellerKnoten = tn
    End Sub
 
    Private Sub TreeView1_MouseUp(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) Handles TreeView1.MouseUp
 
        Dim tvnSelectedNode As System.Windows.Forms.TreeNode = _
          TreeView1.GetNodeAt(New System.Drawing.Point(e.X, e.Y))
 
        Dim z = tvnSelectedNode.FullPath()
 
        If (e.Button = MouseButtons.Right) And _
           (Not tvnSelectedNode Is Nothing) Then
            Dim a = tvnSelectedNode.Text
            Dim intd = tvnSelectedNode.Index
            tvnSelectedNode.Checked = True
            TreeView1.SelectedNode = tvnSelectedNode
            AktuellerKnoten = tvnSelectedNode
            'Dim bez = AktuellerKnoten.Text.ToString
        End If
 
    End Sub