Mostrar el contenido de una matriz en un ListView VB.NET

En la siguiente aplicación mostraremos el contenido de una Matriz en un control ListView, para lo cual se debe crear un proyecto en Visual Basic.Net 2012. (Puede ser una versión anterior también).

Diseñar el formulario en la siguiente forma, se agrega un contrl ListView, el nombre es cambiado a lsvDatos.

 El codio en el boton Ingresar Datos es:

 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim X, Y, F, C As Integer
        F = TextBox1.Text
        C = TextBox2.Text
        Dim DATOS(F, C) As Double
        'Ingreso de datos a la Matriz
        For X = 0 To F - 1
            For Y = 0 To C - 1
                DATOS(X, Y) = InputBox("Ingresar numero " & X & Space(5) & Y)
            Next
        Next
        'Usamos la Propiedad View para indicar que nos muestre los detalles
        lsvDatos.View = View.Details
        'Limpiamos las columnas para realizar una segunda prueba
        'si no se borra se inserta en la parte inferior el nuevo ingreso
        lsvDatos.Columns.Clear()
        lsvDatos.Items.Clear()
        'Asignamos el nombre de cada columna que sera 0, 1...el control
        'muestra solamente datos tipo string
        'el cual puede ser cambiado y el parametro 100 es el ancho de la
        'columna.
        For Y = 0 To C - 1
            lsvDatos.Columns.Add(Y.ToString, 100)
        Next
        'Utilizamos ListaItem para agregar datos al ListView
        For X = 0 To F - 1
            Dim ListaItem As New ListViewItem
            For Y = 0 To C - 1
                'El primer elemento de la fila del ListView es agregado con
                'Items.Add y los siguientes elementos de la fila son
                'agregados como SubItems
                If Y = 0 Then
                   'Convertimos el contenido de la matriz a tipo String
                    ListaItem.Text = DATOS(X, Y).ToString
                    lsvDatos.Items.Add(ListaItem)
                Else
                    ListaItem.SubItems.Add(DATOS(X, Y).ToString)
                End If
            Next
        Next
    End Sub

 Si desea el codigo fue escribir a: cgcg2006@gmail.com.