Dim oSF As New interfax.InterFax() 'Reference to Interfax object
Dim List(9) As interfax.FaxItem 'Data structure (array) to hold results - max 10 items
Dim intTotalCount As Integer 'Total number of messages available for the user
Dim intListSize 'Actual size of list returned (Number of items in List()
Dim strOut As String = "" 'Build display here
Dim i As Integer
Dim lngRet As Long
'
' Invoke Interfax FaxStatus method
'
List = oSF.FaxStatus("MyUsername", "MyPassword", Int32.MaxValue, 10, intTotalCount, intListSize, lngRet)
If lngRet <> 0 Then
 
    '
    ' An error occured - see documentation
    '
    MessageBox("Error !!!" & lngRet)
 
Else
 
    '
    ' A normal response returned from Interfax server
    ' Start build display
    ' strOut = "Total received: " & intListSize & " of " & intTotalCount & " showing TIDs: " & vbCrLf
    strOut = strOut & "TransactionID" & " : " & "Status" & " : " & "RemoteCSID" & vbCrLf
 
    For i = 0 To intListSize - 1
 
        strOut = strOut & List(i).TransactionID & " : " & List(i).Status & " : " & List(i).RemoteCSID & vbCrLf
 
    Next
    MessageBox(strOut)
 
End If
End Sub