Private Sub Form1_Load(ByVal sender As System.Object, _
  ByVal e As System.EventArgs) Handles MyBase.Load
 
  ' Edit-Mode für das TreeView zulassen
  TreeView1.LabelEdit = True
End Sub

Private Sub TreeView1_MouseDown(ByVal sender As Object, _
  ByVal e As System.Windows.Forms.MouseEventArgs) Handles TreeView1.MouseDown
 
  Try
    If e.Button = Windows.Forms.MouseButtons.Right Then
      ' Bei Rechtsklick, PopUp-Menü anzeigen
      ' Eintrag ermitteln ...
      Dim selNode As TreeNode = TreeView1.GetNodeAt(e.X, e.Y)
      If selNode IsNot Nothing Then
        ' ... selektieren ...
        TreeView1.SelectedNode = selNode
 
        ' Kontextmenü
        Dim cms As New ContextMenuStrip()
 
        ' Ereignishandler für das ItemClicked-Event zuweisen
        AddHandler cms.ItemClicked, AddressOf cmsItemClicked
 
        cms.Items.Add("Bearbeiten...").Tag = "Edit"
        cms.Items.Add("Drucken...").Tag = "Print"
        cms.Show(TreeView1, e.X, e.Y)
      End If
    End If
  Catch ex As Exception
  End Try
End Sub

Private Sub cmsItemClicked(ByVal sender As Object, _
  ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs)
 
  Select Case e.ClickedItem.Tag
    Case "Edit"
      ' Edit-Mode für das selektierte Node-Objekt starten
      TreeView1.SelectedNode.BeginEdit()
 
  End Select
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de