Public Sub Main()
Dim i As Integer
Dim AList As New ArrayList
Dim Blist As New ArrayList
Dim x As Integer
Dim o, o2 As Object
For x = 0 To 6
i = Blist.Add("This is AList " & x.ToString)
Next
AList = Blist.GetRange(2, 3)
For x = 0 To 6
o = Blist.Item(x)
' Stop ' Check out your locals window
Next
For Each a In AList
o2 = a.ToString
' Stop ' Check out your Locals window
Next
End Sub