Wait while webpage and source html load before going to next sub

[CJN]

Hi,

No i'm not doing that. It goes a little something like this:

Private Sub MAINSUB()
 
'Do some other stuff, including starting a loop
 
'Call load web/source
loadURLSource()
 
'Call next lot of subs
subC()
subD() 'etc
'do some other stuff and go back to loop start
 
End SUb
 
    Private Sub loadURLSource()
        'Load the url and the matching html source code
        'Load the url to the webbrowser control brWeb...
        brWeb.Navigate(curURL)
     '   While brWeb.ReadyState <> SHDocVw.tagREADYSTATE.READYSTATE_COMPLETE
        '    Sleep(4000) ' Wait 4 seconds.
     '   End While
        'Auto Call to the webbrowsers docComplete sub (through the doc) to load the source html when the url has finished...
    End Sub
 
    Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
 
 
    Private Sub doc_DownloadComplete() Handles doc.DownloadComplete
        'Load the source html...
        txtSource.Text = brWeb.Document.documentelement.outerhtml
      '  While loadcompl <> True
      '      If txtSource.Text = "" Then
      '          Sleep(4000) ' Wait 4 seconds.
      '      Else
      '          loadcompl = True
      '      End If
      '  End While
 
        MsgBox("doc")
    End Sub

Do you think ur idea would work, if its the only way then I will do it but putting all the rest of my subs and stuff in there is a but ugly and annoying. Cheers for the suggestion though. (you're almost becoming my VB gardian angel )