Handles without a control

    Dim theList As New List(Of WebBrowser)
    Sub access(ByVal numTimes As UInteger)
        theList.Clear()
        For i As Integer = 0 To numTimes - 1
            theList.Add(New WebBrowser)
            theList(i).ScriptErrorsSuppressed = True
            theList(i).Navigate(command)
        Next
    End Sub

sub naved() Handles theList(0).DocumentCompleted
' code on completion
end sub