Hello Nadya,

Here is VB code that I have trouble translating because I am semi-VB unconscious.

Private Sub Command1_Click()
Dim i as Integer
FaxManJr1.FaxNumber = "555-1212"
FaxManJr1.FaxCoverPage = "c:\FaxMan Jr.\server\cover2.pg"
FaxManJr1.SendFax
Dim faxstat As FaxStatusObj
Set faxstat = FaxManJr1.StatusObject
Do
FaxManJr1.WaitForEvent 10000 ‘Wait for 10 seconds
Select Case faxstat.LastEventType
Case EVENT_STATUS
i = 0
Text1.SelText = "Status" & vbCrLf
Case EVENT_NEGOTIATION
Text1.SelText = "Negotiation" & vbCrLf
Case EVENT_STARTTIME
Text1.SelText = "StartTime" & vbCrLf
Case EVENT_ENDTIME
Text1.SelText = "EndTime" & vbCrLf
Case EVENT_COMPLETE
Text1.SelText = "Complete" & vbCrLf
Case EVENT_TIMEOUT
i = i + 1
Text1.SelText = "Timeout" & vbCrLf
End Select
Loop Until (faxstat.LastEventType = EVENT_COMPLETE) Or (i =9 ) ‘ 90 idle seconds
End Sub

Thanks for any help you may be able to provide. I could probably figure it out, but it might take me a few days of hard labor.