Do
> ActiveXControl1.WaitForEvent 10000 ‘Wait for 10 seconds
> Select Case ActiveXControl1.LastEventType
> Case EVENT_STATUS ' status event occurred
> i = 0
> Text1.SelText = "Status" & vbCrLf
> Case EVENT_NEGOTIATION ' negotiation event occurred
> Text1.SelText = "Negotiation" & vbCrLf
> Case EVENT_STARTTIME 'starttime event occurred
> Text1.SelText = "StartTime" & vbCrLf
> Case EVENT_ENDTIME 'endtime event occurred
> Text1.SelText = "EndTime" & vbCrLf
> Case EVENT_COMPLETE 'complete event occurred
> Text1.SelText = "Complete" & vbCrLf
> Case EVENT_TIMEOUT 'timeout event occurred
> i = i + 1
> Text1.SelText = "Timeout" & vbCrLf
> End Select
> Loop Until (ActiveXControl1.LastEventType = EVENT_COMPLETE) Or (i = 9 ) ‘ 90 idle seconds
>
>FWIW, these events are not user-generated, but are generated during the process of a fax transmission and are used to notify your app of the progress.
>
>JonLarry Miller
MCSD
LWMiller3@verizon.net
Accumulate learning by study, understand what you learn by questioning. -- Mingjiao