Private Sub btnListMember_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnListMember.Click
    Dim Member As New MemberService.MemberService
    Dim MemberListReturned As MemberService.MemberListDataset.MemberListDataTable
    Dim MemberServiceHeader As MemberService.Header    

    MemberServiceHeader = New MemberService.Header
    MemberServiceHeader.Username = "api.delivra@delivra.com" 'use your lyris login info here
    MemberServiceHeader.Password = "apipass"                 'use your lyris login info here
    MemberServiceHeader.List = "api-delivra"                 'use your lyris list here
    Member.HeaderValue = MemberServiceHeader
    'searching for members that match this partial address
    MemberListReturned = Member.List("delivra.com")     
    'MemberListReturned contains results of the search
End Sub    

Private Sub btnAddMember_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAddMember.Click
    Dim MemberServiceHeader As MemberService.Header
    Dim Member As New MemberService.MemberService
    Dim dt As New MemberService.MemberDataset.MemberDataTable
    Dim dr As MemberService.MemberDataset.MemberRow    

    MemberServiceHeader = New MemberService.Header
    MemberServiceHeader.Username = "api.delivra@delivra.com"
    MemberServiceHeader.Password = "apipass"
    MemberServiceHeader.List = "api-delivra"
    Member.HeaderValue = MemberServiceHeader
    Member.Url = "http://integration.delivra.com/DelivraServices/MemberService.asmx"

    dr = dt.NewMemberRow
    dr.EmailAddress = "pat@delivra.com"
    dr.FirstName = "Pat"
    dr.LastName = "Jones"
    dr.FullName = "Pat Jones"
    dr.Number1 = 199
    dr.Address = "123 Delivra Ave."
    dr.AddressCity = "Indianapolis"
    dr.AddressState = "IN"
    dr.AddressZip = "12345"
    dr.AddressPhone = "888-555-1212"    

    dt.AddMemberRow(dr)
    dt = Member.Add(dt)

    If dt.HasErrors Then
        'Add was not successful, display errors
        Dim GetErrors As String
        Dim col As Data.DataColumn    

        GetErrors = String.Empty
        For Each col In dt.Rows(0).GetColumnsInError
            GetErrors &= col.ColumnName & " : " & dt.Rows(0).GetColumnError(col.ColumnName) & vbCrLf
        Next
        MsgBox(GetErrors, MsgBoxStyle.Information, "Error adding member.")
    Else
        'Add was successful
        MsgBox("Member was added successfully.  MemberID = " & dt(0).MemberID.ToString)        
    End If
End Sub

'Delivra 2007