Recursive Function

Private Function getAllParentsList(ByVal node As Node, ByVal subset As ArrayList)

' integer variable for FOR loops
Dim i As Integer = 0
Dim j As Integer = 0
' temporary node to take the node out from lattice
Dim parentNode As New Node
' boolean variable to avoid the duplicacy of the parent ID's in the list
Dim checkOnAdd As Boolean = False
' outer FOR loop to traverse from start to end of list of parentsList of the node
For i = 0 To node.getNoOfParentsPointers - 1
    ' taking node out of the parent list
    parentNode = node.getParentNode(i)
    ' inner for loop to traverse in the subset list, which is list of unique parents of node
    For j = 0 To subset.Count - 1
        ' if Id of parent node exists in subset list then change the value of boolean
        'variable to true and exit for loop
        If subset.Item(j) = parentNode.getId Then
            checkOnAdd = True
            Exit For ' exiting for loop
        End If ' end of if condition
    Next ' end of For Loop
    'if value of that boolean variable is false then it means that parent Id does not exist
    ' in subset so add parent id to subset otherwise go to next parent node
    If checkOnAdd = False Then
        subset.Add(parentNode.getId)
    End If
    ' reintialisation of boolean variable
    checkOnAdd = False
    ' function calling itself to go to grand parents and so on, so that to traverse in whole lattice
    getAllParentsList(parentNode, subset)
Next ' end of For loop means end of parent list
    End Function