Visual Basic

<Serializable()>
Public Class ws_subscribersCount_Response

    Private m_response_Code As String
    Private m_response_Text As String
    Private m_count As Integer

    Public Property response_Code As String
        Get
            Return m_response_Code
        End Get
        Set(value As String)
            m_response_Code = value
        End Set

    End Property

    Public Property response_Text As String
        Get
            Return m_response_Text
        End Get
        Set(value As String)
            m_response_Text = value
        End Set

    End Property

    Public Property count As Integer
        Get
            Return m_count
        End Get
        Set(value As Integer)
            m_count = value
        End Set

    End Property

End Class

Dim subscribers as New ws_subscribersCount_Response()

subscribers.response_Code = "OK"
subscribers.response_Text = m_count & " subscribers have loaded successfully"
subscribers.count = m_count   

Dim writer As MemoryStream = Nothing

//Start of Quote Process 
Dim XMLRequest As UPSRequest.AccessRequest
XMLRequest = New UPSRequest.AccessRequest

XMLRequest.AccessLicenseNumber = sUPSsi.AccessLicenseNumber
XMLRequest.UserId = sUPSsi.UserID
XMLRequest.Password = sUPSsi.Password

//Now Lets Write out the file as a MemoryStream
Dim serializer As XmlSerializer
serializer = New XmlSerializer(GetType(UPSRequest.AccessRequest))

writer = New MemoryStream()
serializer.Serialize(writer, XMLRequest)
writer.Position = 0

//Now we have to write out a file for certification
Dim request_serializer As XmlSerializer = Nothing
request_serializer = New XmlSerializer(GetType(UPSRequest.AccessRequest))

If (True = p_Write_Certification_Request) Then

Using request_writer As New StreamWriter(HttpContext.Current.Server.MapPath("~\Logs\UPS\"AccessRequest.xml"))

   request_serializer.Serialize(request_writer, XMLRequest)

End Using

End If

Public Shared Function FindNextNode(ByVal node As TreeNode) As TreeNode
    If node Is Nothing Then Throw New ArgumentNullException("node")
    
    ' If the node has any children, return the first child:
    If node.GetNodeCount(False) <> 0 Then
        Return node.Nodes(0)
    End If
    
    ' Otherwise, return the next node of the nearest ancestor which has one:
    While node IsNot Nothing
        Dim nextNode As TreeNode = node.NextNode
        If nextNode IsNot Nothing Then Return nextNode
        node = node.Parent
    End While
    
    ' If we get here, we're at the end of the tree:
    Return Nothing
End Function

Public Shared Function FindPreviousNode(ByVal node As TreeNode) As TreeNode
    If node Is Nothing Then Throw New ArgumentNullException("node")
    
    Dim result As TreeNode = node.PrevNode
    If result Is Nothing Then
        ' No previous sibling; move to the parent node:
        result = node.Parent
    Else
        ' Find the last descendant of the previous sibling:
        Dim childCount As Integer = result.GetChildCount(False)
        While childCount <> 0
            result = result.Nodes(childCount - 1)
            childCount = result.GetChildCount(False)
        End While
    End If
    
    Return result
End Function