Public Class Form1
    Dim Mlist As New List(Of MeineKlasse)
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) _
      Handles MyBase.Load
        For a As Integer = 1 To 10
            Mlist.Add(New MeineKlasse(a))
        Next
    End Sub
 
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) _
      Handles Button1.Click
 
        Mlist.printAverage()
    End Sub
End Class
Module extensions
    <System.Runtime.CompilerServices.Extension()> _
    Public Sub printAverage(ByVal lClass As List(Of MeineKlasse))
        Dim av As Integer
        For Each c In lClass
            av += c.Wert
        Next
 
        Debug.WriteLine("Der Durchschnitt ist: " & av / lClass.Count)
    End Sub
End Module
 
Class MeineKlasse
    Private _wert As Integer
    Public Property Wert As Integer
        Get
            Return _wert
        End Get
        Set(value As Integer)
            _wert = value
        End Set
    End Property
    Public Sub New(wert As Integer)
        _wert = wert
    End Sub
End Class

Wenn alle Stricke rei?en, dann h?ng ich mich auf. ~ Karl Kraus