Dim myTilg As New List(Of Class_TilgPlan)

Public Class Class_TilgPlan
 
    Private _Zahltermin As Date
    Private _Leistung As Double
    Private _Zinsen As Double
    Private _Tilgung As Double
    Private _Restsaldo As Double
 
    Public Property Zahltermin() As Date
        Get
            Return _Zahltermin
        End Get
        Set(ByVal Value As Date)
            _Zahltermin = Value
        End Set
    End Property
 
    Public Property Leistung() As Double
        Get
            Return _Leistung
        End Get
        Set(ByVal Value As Double)
            _Leistung = Value
        End Set
    End Property
 
    Public Property Zinsen() As Double
        Get
            Return _Zinsen
        End Get
        Set(ByVal Value As Double)
            _Zinsen = Value
        End Set
    End Property
 
    Public Property Tilgung() As Double
        Get
            Return _Tilgung
        End Get
        Set(ByVal Value As Double)
            _Tilgung = Value
        End Set
    End Property
 
    Public Property Restsaldo() As Double
        Get
            Return _Restsaldo
        End Get
        Set(ByVal Value As Double)
            _Restsaldo = Value
        End Set
    End Property
 
    Public Sub New(ByVal Zahltermin As Date, ByVal Leistung As Double, _
      ByVal Zinsen As Double, ByVal Tilgung As Double, ByVal _
      Restsaldo As Double)
 
        Me.Zahltermin = Zahltermin
        Me.Leistung = Leistung
        Me.Zinsen = Zinsen
        Me.Tilgung = Tilgung
        Me.Restsaldo = Restsaldo
 
    End Sub
 
    Public Sub New()
    End Sub
 
End Class

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)
 
    End Sub