Dim arFNlist As New ArrayList()
'''insert item from datatable to arraylist
arFNlist.Add(strDelRR(rowServiceFootNotes.Item("fn")))


'''Remove duplicate from array

''source means your arraylist (arFNlist)''''''

    Private Sub RemoveDuplicates(ByRef source As System.Collections.ArrayList)
        Dim destination As New System.Collections.ArrayList
        For Each item As Object In source
            If Not destination.Contains(item) Then
                destination.Add(item)
            End If
        Next
        source = destination
    End Sub

'''Read value from arraylist

 For Each num In arFNlist

          
lbl.text= num
             
        Next