Control array element '1' doesn't exist!

[arpan_de]

A WebBrowser project has a ImageCombo address bar & a dynamic menu. The menu lists the URLs the user has visited in a particular session. Clicking a URL in the menu takes the user to that particular site. Thw tag of each menu item stores the URLs.

Now what I want is if the tag of any of the menu items is the same as the URL in the address bar, that item should be unloaded from the menu. This is how I tried it:

Private Sub mnuArrow_Click(Index As Integer)
    Dim i As Integer
    imgCboURL(0).Text = Me.mnuArrow(Index).Tag
    wWeb.Navigate2 Me.mnuArrow(Index).Tag
    For i = 0 To Me.mnuArrow.UBound
        If (Me.mnuArrow(i).Tag = imgCboURL(0).Text) Then
            Unload Me.mnuArrow(i)
        End If
    Next
End Sub

Now assume that the menu has 3 URLs. When I click the 1st URL, the address in the ImageCombo changes & the user is taken to that site. Now the menu has only 2 items. Next I click the 1st URL (among the 2 URLs) in the menu. The address in the address bar changes & the user is taken to that site but after that, VB generates the Control array element '1' doesn't exist error pointing to the If condition in the above code.

Now what does this error mean & how do I resolve this issue?

[MartinLiss]

Try this.

Dim mnu As Menu
 
For Each mnu In mnuArrow
    If mnu.Index <> 0 Then
        Unload mnu
    End If
Next