Private Sub Item1ToolStripMenuItem_Click(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles Item1ToolStripMenuItem.Click
        If TreeView1.SelectedNode IsNot Nothing Then
            MsgBox("Node " & TreeView1.SelectedNode.Text)
        End If
    End Sub
 
    Private Sub TreeView1_MouseDown(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) Handles TreeView1.MouseDown
        If e.Button = Windows.Forms.MouseButtons.Right Then
            Dim tvn As TreeNode = TreeView1.HitTest(e.Location).Node
            'If tvn IsNot Nothing Then
            TreeView1.SelectedNode = tvn
            'End If
        End If
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist