Mostrar esto de forma diferente

[luis456]

Bueno probando y probando consegui un codigo y se muestra el resultado pero por consola ya lo he puesto en un fom win pero no logro hacer que me lo muestre en un listbox o si hay otra forma o otra herramienta ya que solo lo que nesecito es visualizarlo

alguna idea ?

Código (vbnet) [Seleccionar] Expandir

Public Shared Sub PrintValues(ByVal myArr As Array)
       Dim myEnumerator As System.Collections.IEnumerator = _
          myArr.GetEnumerator()
       Dim i As Integer = 0
       Dim cols As Integer = myArr.GetLength((myArr.Rank - 1))
       While myEnumerator.MoveNext()
           If i < cols Then
               i += 1
           Else
               Console.WriteLine()
               i = 1
           End If
           Console.Write(ControlChars.Tab + "{0}", myEnumerator.Current)
       End While
       Console.WriteLine()
   End Sub
End Class

Luis

[Eleкtro]

Código (vbnet,7,10,12) [Seleccionar] Expandir

Public Shared Sub PrintValues(ByVal myArr As Array)
       ...
       While myEnumerator.MoveNext()
           If i < cols Then
               i += 1
           Else
               Console.WriteLine()
               i = 1
           End If
           Console.Write(ControlChars.Tab + "{0}", myEnumerator.Current)
       End While
       Console.WriteLine()
   End Sub

Estás utilizando los métodos de la Class Console para imprimir ...en la consola.

Esto ya deberías poder resolverlo sin ayuda Luis,
Imaginemos que tienes un Listbox que se llama "Listbox1", ya lo tienes creado en la GUI, entonces haríamos estas modificaciones:

Código (vbnet,7,10,12) [Seleccionar] Expandir

Public Shared Sub PrintValues(ByVal myArr As Array)
       ...
       While myEnumerator.MoveNext()
           If i < cols Then
               i += 1
           Else
               ListBox1.Items.Add(String.Empty)
               i = 1
           End If
           ListBox1.Items.Add(String.Format("{0} {1}", CStr(ControlChars.Tab), CStr(myEnumerator.Current)))
       End While
       ListBox1.Items.Add(String.Empty)
   End Sub

Saludos!

[luis456]

Gracias Elektro

Luis