Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click ' 平均 Dim dAverage As Double = Enumerable.Average(dict, Function(x) x.Value) Console.WriteLine("Hogeの平均 " & dAverage) End Sub