ReadyState example for Visual Basic

Note: Also works with Access 95 and 97.

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