Private Sub TreeView1_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles treeview1.AfterSelect
Select Case (e.Action)
Case TreeViewAction.ByKeyboard
If e.Node.IsSelected = True Then
MsgBox(e.Node.Text)
End If
Case TreeViewAction.ByMouse
If e.Node.IsSelected = True Then
MsgBox(e.Node.Text)
End If
End Select
End Sub