DIv3 VB

Using as a Service Reference(.NET Framework 3.5+)
Add a service reference to your project: http://di3.cdyne.com/DeathIndexService.svc?wsdl

Deceased By SSN

Dim diClient As DeathIndexServiceClient = New DeathIndexServiceClient("disoap")
 
        Dim diResposne = diClient.DeceasedBySSN("(SSN)", "(Your License Key)") 
 
        If diResposne.ReturnCode = 0 Then
            For Each di As DeceasedInfo In diResposne.DeceasedList
 
                Console.WriteLine(di.MiddleName)
                Console.WriteLine(di.BirthDate.ToString())
                Console.WriteLine(di.DeathDate.ToString())
                Console.WriteLine(di.FirstName.ToString())
                Console.WriteLine(di.LastName.ToString())
                Console.WriteLine(di.MiddleName.ToString())
                Console.WriteLine(di.NameSuffix.ToString())
                Console.WriteLine(di.SSN.ToString())
                Console.WriteLine(di.Verified.ToString())
                Console.WriteLine(di.ZipLastResidence.ToString())
                Console.WriteLine(di.ZipLumpSumPay.ToString())
 
            Next
        Else
 
            Console.WriteLine(diResposne.ReturnCode.ToString() + " " + diResposne.ErrorText.ToString())
 
        End If
 
 
 
        diClient.Close()

Search Deceased Info

Dim diClient As DeathIndexServiceClient = New DeathIndexServiceClient("disoap")
 
        Dim diResposne = diClient.SearchDeceasedInfo("Doe", "John", "VA", "1972", "(Your License Key)")
 
        If diResposne.ReturnCode = 0 Then
            For Each di As DeceasedInfo In diResposne.DeceasedList
 
                Console.WriteLine(di.MiddleName)
                Console.WriteLine(di.BirthDate.ToString())
                Console.WriteLine(di.DeathDate.ToString())
                Console.WriteLine(di.FirstName.ToString())
                Console.WriteLine(di.LastName.ToString())
                Console.WriteLine(di.MiddleName.ToString())
                Console.WriteLine(di.NameSuffix.ToString())
                Console.WriteLine(di.SSN.ToString())
                Console.WriteLine(di.Verified.ToString())
                Console.WriteLine(di.ZipLastResidence.ToString())
                Console.WriteLine(di.ZipLumpSumPay.ToString())
 
            Next
        Else
 
            Console.WriteLine(diResposne.ReturnCode.ToString() + " " + diResposne.ErrorText.ToString())
 
        End If
 
 
 
        diClient.Close()