Moving items from one ASP ListBox to Anther

I am Using Two ASP Listboxes . I am Required to pass values from one ListBox to onther . my codef is as follow

Protected Sub Add_Click(sender As Object, e As EventArgs)
        MoveListBoxItems(Setter, Getter)
    End Sub

    Protected Sub Remove_Click(sender As Object, e As EventArgs)
        RemoveItems(Getter, Setter)
    End Sub
    Protected Sub MoveListBoxItems(from As ListBox, [to] As ListBox)

        For i As Int32 = 0 To (Setter.Items.Count() - 1)

            If Setter.Items(i).Selected Then

                [to].Items.Add(from.Items(i))
                from.Items.Remove(from.Items(i))
                Dim c As Integer = Getter.Items.Count()

            End If


        Next
        
        from.SelectedIndex = -1
        [to].SelectedIndex = -1
    End Sub

    Protected Sub RemoveItems(from As ListBox, [to] As ListBox)
        For i As Int32 = 0 To (Getter.Items.Count())
            If Getter.Items(i).Selected Then
                [to].Items.Add(from.Items(i))
                from.Items.Remove(from.Items(i))
            End If
        Next
        from.SelectedIndex = -1
        [to].SelectedIndex = -1
    End Sub

    Protected Sub Addall_Click(sender As Object, e As EventArgs)
        For i As Int32 = 0 To (Setter.Items.Count() - 1)
            Getter.Items.Add(Setter.Items(i))
            Setter.Items.Remove(Setter.Items(i))
        Next
        Setter.SelectedIndex = -1
        Getter.SelectedIndex = -1
    End Sub

    Protected Sub Removeall_Click(sender As Object, e As EventArgs)
        For i As Int32 = 0 To (Getter.Items.Count() - 1)
            Setter.Items.Add(Setter.Items(i))
            Getter.Items.Remove(Setter.Items(i))
        Next
        Setter.SelectedIndex = -1
        Getter.SelectedIndex = -1
    End Sub

i am having error as index out of range . any Idea why?