Do and Loop commands

[VIP3R]

Check out this code. It freezes the program if the browser isn't ready!

    Do
        If WebBrowser.ReadyState = READYSTATE_COMPLETE Then
            'Code goes here
        End If
    Loop Until WebBrowser.ReadyState = READYSTATE_COMPLETE

Try it on your Pc and tell me what happens

[Yonatan]

Change it just slightly.

Do
    DoEvents
    ' Code goes here
Loop Until WebBrowser.ReadyState = READYSTATE_COMPLETE

[VIP3R]

i think there's an error in my code. Because I want my form to do something when the browser is ready and I want it to do that thing only once. so How would I do that?

Add this to a timer loop:

Private Sub Timer1_Timer()
  If Browser.ReadyState = READYSTATE_COMPLETE Then
    Timer1.Enabled = False
    'Code Here
  End If
End Sub

Try this:

Do Until WebBrowser.ReadyState = READYSTATE_COMPLETE
    DoEvents
    ' Code goes here
Loop