Waiting for page to fully load!

[Beacon]

Using ms internet control, how can i tell if a page is fully loaded b4 i execute the rest of the code.
E.g

Private Sub Form_Load()
Web.Navigate "http://www.riu.com.au/gold/secure/v5i34/contents.htm " 'wait for this page to fully load b4 executing the rest?
selct
copy
pste
Dim objSearch As Collection
Dim varSearch As Variant
Dim intPos As Integer

Set objSearch = New Collection
objSearch.Add "mining"
objSearch.Add "aurora"
objSearch.Add "ccc"

intPos = 0
For Each varSearch In objSearch

intPos = InStr(1, Text1.Text, varSearch)
If intPos > 0 Then
MsgBox varSearch & " was found in (" & _
Text1.Text & ") at position " & intPos
nextsite
Else
MsgBox "no results"
nextsite
End If
Next
End Sub

[GungaDin]

Use the DocumentComplete event of the MS Internet Control. This will only fire when the page is fully loaded.

Hope this helps,

Nathan Liebke