Imports System.Windows.Forms

Module Module1

    Sub Main()

        Dim testrekening As rekening
        Dim testzichtrekening As zichtrekening
        Dim testspaarrekening As Spaarrekening
        Dim output As String

        testrekening = New rekening(1, 500, #12/9/2003#)

        output = "rekening: " & vbCrLf & "-----------------" & vbCrLf & _
                  "nummer: " & testrekening.nummerProp & _
                  vbCrLf & "saldo: " & testrekening.saldoProp & _
                  vbCrLf & "creatiedatum: " & testrekening.creatieProp

        output &= vbCrLf & vbCrLf & "zichtrekening:" & vbCrLf & "-----------------" & vbCrLf

        testzichtrekening = New zichtrekening(200)

        output &= "nummer: " & testrekening.nummerProp & _
                  vbCrLf & "saldo: " & testrekening.saldoProp & _
                  vbCrLf & "creatiedatum: " & testrekening.creatieProp & _
                  vbCrLf & "Maximum krediet: " & testzichtrekening.maxkredietProp

        output &= vbCrLf & vbCrLf & "spaarrekening:" & vbCrLf & "-----------------" & vbCrLf

        testspaarrekening = New Spaarrekening(6)

        output &= "nummer: " & testrekening.nummerProp & _
                  vbCrLf & "saldo: " & testrekening.saldoProp & _
                  vbCrLf & "creatiedatum: " & testrekening.creatieProp & _
                  vbCrLf & "intrest: " & testspaarrekening.intrestProp

        testrekening.storten(500)

        output &= vbCrLf & vbCrLf & "na het sorten: " & vbCrLf & "-----------------" & vbCrLf & "saldo: " & testrekening.saldoProp
        MessageBox.Show(output, "rekening")
    End Sub

End Module
