Ver Mensaje Individual
  #4 (permalink)  
Antiguo 24/06/2004, 09:58
DotNetDeveloper
 
Fecha de Ingreso: abril-2003
Mensajes: 606
Antigüedad: 21 años, 1 mes
Puntos: 2
Obtenido de la ayuda:

Código:
Imports System
Imports System.Collections
Imports Microsoft.VisualBasic

Public Class SamplesArrayList    
    
    Public Shared Sub Main()
        
        ' Creates and initializes a new ArrayList.
        Dim myAL As New ArrayList()
        myAL.Add("Hello")
        myAL.Add("World")
        myAL.Add("!")
        
        ' Displays the properties and values of the ArrayList.
        Console.WriteLine("myAL")
        Console.WriteLine(ControlChars.Tab + "Count:    {0}", myAL.Count)
        Console.WriteLine(ControlChars.Tab + "Capacity: {0}", myAL.Capacity)
        Console.Write(ControlChars.Tab + "Values:")
        PrintValues(myAL)
    End Sub
    
    
    Public Shared Sub PrintValues(myList As IEnumerable)
        Dim myEnumerator As System.Collections.IEnumerator = _
           myList.GetEnumerator()
        While myEnumerator.MoveNext()
            Console.Write(ControlChars.Tab + "{0}", myEnumerator.Current)
        End While
        Console.WriteLine()
    End Sub
End Class
http://msdn.microsoft.com/library/de...ClassTopic.asp