Как работать с одним экземпляром Internet Explorer я знаю —

Dim WithEvents wbrowser1 As SHDocVw.InternetExplorer

Private Sub Form_Load()
Set wbrowser1 = CreateObject("InternetExplorer.Application")
wbrowser1.Navigate ("http://www.mail.ru")
End Sub

Private Sub Wbrowser1_DocumentComplete(ByVal pDisp As Object, url As Variant)
MsgBox "Загрузка завершена"
End Sub

А как создать и главное обрабатывать события нескольких IE мне не понятно.

Единственное что мне пришло в голову, это объявить объект как массив элементов и создавать новый экземпляр как элемент этого массива —

Dim wbrowser1(20) As Object
index = 0

Set wbrowser1(index) = CreateObject("InternetExplorer.Application")
index = index + 1

wbrowser1(index).Navigate "http://www.mail.ru"

В этом случае всё создаётся правильно, но как обрабатывать события этих экземпляров не понятно.

Есть какие-нибудь варианты?
Желательно с текущим кодом.