ReadyState example for Visual Basic

This example shows how to use the ReadyState property to test whether an asynchronous load is in progress.

If Lead1.ReadyState = READYSTATE_LOADING Then
    MsgBox "Still loading the image"
End If