Public Class Form1

    Dim minkonto As New Konto

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Dim innskudd As Double = CDbl(TextBox1.Text)
        minkonto.settInn(innskudd)

        Dim saldo As Double = minkonto.sjekkSaldo()
        ListBox1.Items.Add("Du satte inn " & innskudd & " kr og har nå " & saldo & " kr")

    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        Dim uttak As Double = CDbl(TextBox2.Text)
        minkonto.taUt(uttak)

        Dim saldo As Double = minkonto.sjekkSaldo()
        ListBox1.Items.Add("Du tok ut " & uttak & " kr og har nå " & saldo & " kr")

    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click

        minkonto.adderRente()
        Dim saldo As Double = minkonto.sjekkSaldo()
        ListBox1.Items.Add("Du har fått renter inn på kontoen og saldoen er nå " & saldo & " kr")

    End Sub
End Class

Public Class Konto

    ' Variablene er synlige innenfor klassen
    Private kontonummer As String
    Private saldo As Double = 0
    Private rentesats As Double = 0.035

    ' Metodene er synlige i hele programmet
    Public Sub settkontonummer(ByVal nummer As String)
        kontonummer = nummer
    End Sub

    Public Sub settInn(ByVal innskudd As Double)
        saldo = saldo + innskudd
    End Sub

    Public Sub taUt(ByVal uttak As Double)
        saldo = saldo - uttak
    End Sub

    Public Function sjekkSaldo()
        Return saldo
    End Function

    Public Sub adderRente()
        saldo = saldo * (1 + rentesats)
        ' saldo = saldo + saldo * rentesats
    End Sub

End Class