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