ReadyStateChange Example VB

This example demonstrates how the ReadyState property can be captured and generate a message box indicating the current state of the control.

Private Sub Imgocr1_ReadyStateChange(ReadyState As Long)    
    sCaption = "Ready State"    
    Select Case ReadyState
        Case 0
            MsgBox "Control is initializing and retrieving properties.", , sCaption
        Case 2
            MsgBox "Control is initialized; download has started.", , sCaption
        Case 4
            MsgBox "Control is ready.", , sCaption
    End Select
End Sub