Error :Index was out of range. Must be non-negative and less than the size of the collection. Parameter name: index

Protected Sub Imgto_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles Imgto.Click Try If lbcont.SelectedIndex > 0 Then For i As Integer = 0 To lbcont.Items.Count Step 1 If lbcont.Items(i).Selected Then If arraylsit1.Contains(lbcont.Items(i)) Then arraylsit1.Add(lbcont.Items(i)) End If lbac.Items.Add(lbcont.Items(i)) lbcont.Items.Remove(lbcont.Items(i)) End If Next For i As Integer = 0 To arraylsit1.Count Step 1 If Not lbac.Items.Contains(arraylsit1(i)) Then lbac.Items.Add(arraylsit1(i)) End If lbcont.Items.Remove(arraylsit1(i)) Next lbac.SelectedIndex = ...