Assistance a un exercice en vb

Bonjour,

je suis entrain de faire un exercice dans lequel on me demande d'afficher dans un listbox les informations suivantes
vous investissez : $1000
après 1 ans=>$1050,00
après 2 ans=>$1102,50
après 3 ans=>$1157,63

mon probleme est que je ne sais pas comment faire pour avoir cette affichage
j'ai plutot ceci
listViewItem: { 2ans}
listViewItem: { 3ans}

voici mon code:

Public Class Form1
    Private Sub Btncalcule_Click(sender As Object, e As EventArgs) Handles Btncalcule.Click
        'Declaration des variables 
        Dim i, tin, interv, n, m As Double
        'verification si les textbox ne sont pas vides et affectation
        If Txttauxinteret.Text <> "" And Txtmtin.Text <> "" And Txtinterv.Text <> "" And Txtnbannee.Text <> "" Then
            tin = CDbl(Txttauxinteret.Text) / 100
            n = CDbl(Txtnbannee.Text)
            m = CDbl(Txtmtin.Text)
            interv = CDbl(Txtinterv.Text)
            Dim item As ListViewItem
            ListView1.Items.Clear()
            Dim an As String
            For i = interv To n-1 Step interv
                If i = 1 Then
                    an = "an"
                Else
                    an = "ans"
                End If
                item = New ListViewItem
                item.Text = CStr(i) + "" + an
                item.SubItems.Add((m * (1 + tin) ^ i).ToString)
                Me.ListView1.Items.Add(item)
            Next
            If n = 1 Then
                an = "an"
            Else
                an = "ans"
            End If
            item = New ListViewItem
            item.Text = CStr(n) + "" + an
            item.SubItems.Add((m * (1 + tin) ^ n).ToString)
            Me.ListView1.Items.Add(item)
        End If
        BtnRecommencer.Visible = True
    End Sub

    Private Sub BtnRecommencer_Click(sender As Object, e As EventArgs) Handles BtnRecommencer.Click
        ListView1.Items.Clear()
        Txtinterv.Clear()
        Txtmtin.Clear()
        Txtnbannee.Clear()
        Txttauxinteret.Clear()
        BtnRecommencer.Visible = False
    End Sub

    Private Sub BtnTerminer_Click(sender As Object, e As EventArgs) Handles BtnTerminer.Click
        Close()
    End Sub
End Class

EDIT : Ajout des balises de code

merci pour votre aide