VB.NET: Get The Status Of Letters And Postcards with GetStatus()

Imports System.IO
 
Module Module1
    Sub Main()
        Const MyUsername As String = "MyUsername"
        Const MyPassword As String = "MyPassword"
        Const IDs As String = "0"       'To query a single mail item
        'Const IDs As String = "0,0,0"  'To query multiple mail items
        'Const IDs As String = "0-0"    'To query a range of mail items
 
 
        Dim objPM As New com.postalmethods.api.PostalWS()
        Dim WSResult As com.postalmethods.api.GetStatusResult
 
        '
        ' Invoke the GetStatus method
        '
        WSResult = objPM.GetStatus( _
                    MyUsername, _
                    MyPassword, _
                    IDs)
 
        '
        ' Check response status
        '
        If WSResult.ResultCode = -3000 Then
            '
            ' -3000 means that the data was successfully retrieved.
            '
            For i As Integer = 0 To WSResult.Statuses.Length - 1
                With WSResult.Statuses(i)
                    Console.WriteLine("ID: {0}", .ID)
                    Console.WriteLine("Status: {0}", .Status)
                    Console.WriteLine("Description: {0}", .Description)
                    Console.WriteLine("================================")
                End With
            Next
        Else
            '
            ' A value less than -3000 means an error occurred.
            ' See the PostalMethods Status Codes: http://www.postalmethods.com/statuscodes.
            '
            Console.WriteLine("Error is:" & WSResult.ResultCode)
        End If
 
        ' In debug mode, the following lines prevent your console application from closing automatically upon termination
        Console.WriteLine("Hit ENTER to terminate application")
        Console.ReadLine()
 
    End Sub
 
 
End Module