Dim newAry As ArrayList = CType(Session("territoryHolder"), ArrayList)

'loops and highlight listbox base on arraylist.
Dim X As Integer
Dim strDataHolder As String
   For X = 0 To newAry.Count - 1
       strDataHolder = newAry(X)
       Me.dlTerritory.SelectedItem.Value = strDataHolder
    Next

            Dim count, D As Int32
            Dim item As String
            count = Me.dlTerritory.Items.Count

            Dim ary As New ArrayList

            For D = 0 To count - 1
                If Me.dlTerritory.Items(D).Selected = True Then
                    item = Me.dlTerritory.Items(D).Value
                    If strFilter = "status in (" & statusFilter & ")" Then
                        strFilter += " and territory = '" & item & "'"
                    Else
                        strFilter += " or territory = '" & item & "'"
                    End If
                    ary.Add(item)
                End If
            Next
            Session.Add("territoryHolder", ary)

            Dim X As Integer
            Dim strDataHolder As String
            For X = 0 To newAry.Count - 1
                strDataHolder = newAry(X)
                Me.dlTerritory.SelectedItem.Value = strDataHolder
            Next

Dim X As Integer
Dim strDataHolder As String
For X = 0 To newAry.Count - 1
    If newAry.Item(X).Value = True Then
	Me.dlTerritory.SelectedIndex = X
    End If
Next

Public Class WebForm1
    Inherits System.Web.UI.Page
#Region " Web Form Designer Generated Code "

    'This call is required by the Web Form Designer.
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

    End Sub
    Protected WithEvents ListBox1 As System.Web.UI.WebControls.ListBox
    Protected WithEvents Button1 As System.Web.UI.WebControls.Button
    Protected WithEvents Button2 As System.Web.UI.WebControls.Button

    'NOTE: The following placeholder declaration is required by the Web Form Designer.
    'Do not delete or move it.
    Private designerPlaceholderDeclaration As System.Object

    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN: This method call is required by the Web Form Designer
        'Do not modify it using the code editor.
        InitializeComponent()
    End Sub

#End Region
    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Put user code to initialize the page here
        If Not IsPostBack Then
            Me.ListBox1.Items.Add("apples")
            Me.ListBox1.Items.Add("oranges")
            Me.ListBox1.Items.Add("bananas")
        End If
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim a As ArrayList
        Dim i As Integer

        'allocate memory dynamically
        a = New ArrayList

        For i = 0 To Me.ListBox1.Items.Count - 1
            'was it selected?
            If Me.ListBox1.Items(i).Selected = True Then
                'sure was, so add it...
                a.Add(Me.ListBox1.Items(i).Text)
            End If
        Next

        'now check what was selected via the array list
        WhatWasClicked(a)
    End Sub
    Private Sub WhatWasClicked(ByVal a As ArrayList)
        Dim i As Integer
        Dim j As Integer

        '2 loops one for the array, 
        'second one for the listbox

        'loop for the array
        For i = 0 To a.Count - 1
            'loop for the listbox
            For j = 0 To Me.ListBox1.Items.Count - 1
                'the array has the value selected
                If a(i) = Me.ListBox1.Items(j).Text Then
                    Me.ListBox1.Items(j).Selected = True
                    'break out no need to reloop
                    Exit For
                End If
            Next
        Next
    End Sub
    
End Class