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