help me

 Public Class Form1

    Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged

        Dim d As Integer
        ListBox1.BeginUpdate()

        For d = 1 To 5
            ListBox1.Items.Add("" & d.ToString())

            ListBox2.EndUpdate()
        Next d
    End Sub
End Class

can anyone help me .. i am doing loop in listbox1 and to multiply by itself .first the listbox1 is loop in to 1 to 5 and when i click the button the listbox1 is going to listbox2 but it's multiply by itself......my problem when i run my program the listbox1 is empty i dont know why and anyone can give an idea how to multiply the loop by itself