my program is stock when i press my button

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim d As Integer = d.ToString()

        ListBox1.BeginUpdate()

        For d = 1 To 5

            ListBox1.Items.Add(d)

        Next d

        ListBox1.EndUpdate()

    End Sub

 

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

        Dim d As Integer = d.ToString()

        ListBox1.BeginUpdate()

        ListBox2.BeginUpdate()

        While ListBox1.SelectedItems.Count > 0

            d = ListBox1.Items.Add(0)

            ListBox1.Items.Remove(d)

            ListBox2.Items.Add(d * d)

            ListBox1.EndUpdate()

            ListBox2.EndUpdate()
        End While

    End Sub

End Class

i want to create a two listbox with a button and i am doing is in the listbox have a value of loop 1 to 5 and then when i press the button ,in the listbox1 will go into listbox2 but it will multiply by itself ...

my problem when i run my program and i press the button my program stock (form 1).

 Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim d As Integer = d.ToString()

ListBox1.BeginUpdate()

For d = 1 To 5

ListBox1.Items.Add(d)

Next d

ListBox1.EndUpdate()

End Sub



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

Dim d As Integer = d.ToString()

ListBox1.BeginUpdate()

ListBox2.BeginUpdate()

While ListBox1.SelectedItems.Count > 0

d = ListBox1.Items.Add(0)

ListBox1.Items.Remove(d)

ListBox2.Items.Add(d * d)

ListBox1.EndUpdate()

ListBox2.EndUpdate()
End While

End Sub

End Class