'get a reference to the service
Dim ws As InwiseWebServices.InwiseWebServices = New InwiseWebServices.InwiseWebServices()
'fill the security header
Dim header As InwiseWebServices.SecHeader = New InwiseWebServices.SecHeader()
header.username = "username"
header.pass = "myPassword"
ws.SecHeaderValue = header 'set credentials
'call the operation
Dim importQueue() As InwiseWebServices.ImportQueueData = ws.Queue_Importing()
Dim i As Integer
For i = 0 To importQueue.Length - 1 Step i + 1
Dim iq As InwiseWebServices.ImportQueueData = importQueue(i)
Dim priority As Integer = iq.Ai 'the priority of the import
Dim imported As Integer = iq.Bmark 'the number of records imported so far
Dim confirmed As Boolean = iq.Confirmed 'has the import been confirmed
Dim hasError As Boolean = iq.EndError 'has an error terminated the import process
Dim errorMessage As String = iq.ErrorImport 'the error message if any
Dim fieldsMapping As String = iq.FieldsMeaning 'the mappings of the file columns
Dim fileName As String = iq.FileNameWithoutPath 'the name of the file to import
Dim id As Integer = iq.Id 'the id of the import
Dim importDate As DateTime = iq.ImportDate 'the date of the import
Dim started As Boolean = iq.ImportStarted 'has the import process started
Dim isQuick As Boolean = iq.IsBulk 'is it a quick import?
Dim groupid As Integer = iq.MailingListToImport 'the id of the group to make the import to
Dim groupname As String = iq.Name 'the name of the group to make the import to
Dim totalRecords As Integer = iq.TotalRecords 'the number of records in the file to import
Next