Private Sub TreeView1_AfterSelect(ByVal sender As System.Object, ByVal e As _
      System.Windows.Forms.TreeViewEventArgs) Handles TreeView1.AfterSelect
        Dim zaehler As Integer = 0
        Dim Gesamt As Double = 0
        For Each subNode As TreeNode In TreeView1.SelectedNode.Nodes
            Gesamt += subNode.Text
            zaehler += 1
        Next
 
        txtResult.Text = (Gesamt / zaehler)
 
    End Sub

fg viperbone