Dim myTilg As New List(Of Class_TilgPlan)
 
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) _
      Handles Me.Load
        Dim Tilg As New Class_TilgPlan()
 
        Tilg.Zahltermin = "2008/11/11"
        Tilg.Leistung = 758.99
        Tilg.Zinsen = 289.23
        Tilg.Tilgung = 512.65
        Tilg.Restsaldo = 75623.99
 
        myTilg.Add(Tilg)
 
        Tilg.Zahltermin = "2008/11/12"
        Tilg.Leistung = 123.99
        Tilg.Zinsen = 75.23
        Tilg.Tilgung = 56.65
        Tilg.Restsaldo = 5623.99
 
        myTilg.Add(Tilg)
 
        For Each Item As Class_TilgPlan In myTilg
            Debug.Print(Item.Zahltermin.ToString)
            Debug.Print(Item.Leistung.ToString)
            Debug.Print(Item.Zinsen.ToString)
            Debug.Print(Item.Tilgung.ToString)
            Debug.Print(Item.Restsaldo.ToString)
        Next