Dim lst_Summe As New List(Of mySumme)
 
 
Public Structure mySumme
        Implements IComparable(Of mySumme)
        Public konten As Integer
        Public jahr As String
        Public Monat As String
        Dim _Betrag As Decimal
 
        Public Property Betrag As Decimal
            Set(ByVal value As Decimal)
                _Betrag = value
            End Set
            Get
                Return _Betrag
            End Get
        End Property
 
        Public Function CompareTo(ByVal obj As mySumme) As Integer _
     Implements System.IComparable(Of mySumme).CompareTo
            Dim c1 As Integer = Me.konten.CompareTo(obj.konten)
            If c1 <> 0 Then Return c1
            Return Me.konten.CompareTo(obj.konten)
        End Function
 
        Public Sub New(ByVal a As Integer, b As String, c As String, d As _
          Decimal)
            Me.konten = a
            Me.jahr = b
            Me.Monat = c
            Me.Betrag = d
        End Sub

lst_Summe.Add(New mySumme(lst_buchung(a).konten, lst_buchung(a).bu_jahr, _
  lst_buchung(a).Bu_monat, lst_buchung(a).netto))

lst_Summe(0).Betrag =1 ??????