Option Explicit
Dim WithEvents o_IE As InternetExplorer
Private Sub Form_Load()
...
Set o_IE(0) = New InternetExplorer
o_IE(0).Navigate m_URL
o_IE(0).Visible = True
...
End Sub
Private Sub Form_Unload(Cancel As Integer)
On Error Resume Next
o_IE.Quit
On Error GoTo 0
End Sub
Private Sub o_IE_StatusTextChange(ByVal l_Text As String)
Debug.Print "o_IE_StatusTextChange", l_Text
...
End Sub
Private Sub o_IE_TitleChange(ByVal Text As String)
...
End Sub
Sub SetTitle(l_Text)
o_IE(0).Document.Title = l_Text
o_IE(0).StatusText = l_Text
End Sub
Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.
Have a better answer? Share it in a comment.
From novice to tech pro — start learning today.
http://www.iol.ie/~locka/mozilla/mozilla.htm