Code is not working in webbrowser_navigated

Dim cc As String = 0
        For Each item As String In My.Settings.psites
            If item = site Then
                For Each ele As HtmlElement In CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).document.All
                    If ele.GetAttribute("id").Contains("pass") Then
                        
                        ele.SetAttribute("value", My.Settings.ppass(cc))
                    End If
                Next
            End If
            cc = cc + 1
Next