Public Class frmJaggedArray
 
    Dim data()() As Decimal
    Dim WithEvents lbo As New ListBox With {.Parent = Me, .Width = 50}
    Dim WithEvents dgv As New DataGridView With {.Parent = Me, .Left = 60}
 
    Private Sub frmJaggedArray_Load(sender As System.Object, _
        e As System.EventArgs) Handles MyBase.Load
 
        ReDim data(3)
        data(0) = {1.2D, 3.4D}
        data(1) = {5.2D, 12.4D, 17.1D}
        data(2) = {15.2D, 2.14D, 6.7D, 8.24D}
        data(3) = {12.3D, 0.3D}
 
        For i As Integer = 0 To data.Length - 1
            lbo.Items.Add(data(i)(0))
        Next i
 
    End Sub
 
    Private Sub lbo_SelectedIndexChanged(sender As Object, _
        e As System.EventArgs) Handles lbo.SelectedIndexChanged
 
        dgv.Columns.Clear()
        If lbo.SelectedIndex = -1 Then Exit Sub
 
        For i As Integer = 1 To data(lbo.SelectedIndex).Length - 1
            dgv.Columns.Add("K" & CStr(i), "K" & CStr(i))
        Next i
 
        For i As Integer = 1 To data(lbo.SelectedIndex).Length - 1
            dgv.Rows(0).Cells(i - 1).Value = data(lbo.SelectedIndex)(i)
        Next i
 
    End Sub
End Class