' Create a jagged array
Dim data()() As Object= New Object( 9 )() {
New Object( 3 ) { "Canada" , 31500000 , "Ottawa" , "12.2 ºc" },
New Object( 3 ) { "Switzerland" , 7300000, "Bern" , "23.3 ºc"},
New Object( 3 ) { "France" , 59500000 , "Paris" , "27.3 ºc" } ,
New Object( 3 ) { "USA" , 278000000 , "Washington" , "14.1 ºc" } ,
New Object( 3 ) { "UK" , 59700000, "London" , "23.7 ºc" } ,
New Object( 3 ) { "Belgium" , 10300000, "Brussels" , "21.8 ºc" } ,
New Object( 3 ) { "Italy" , 57700000 , "Rome" , "29.6 ºc"} ,
New Object( 3 ) { "Spain" , 40000000 , "Madrid" , "31.8 ºc" } ,
New Object( 3 ) { "Germany" , 83000000, "Berlin" , "25.1 ºc" } ,
New Object( 3 ) { "Japan" , 126800000, "Tokyo" , "17.2 ºc" } }
' Assign the jagged array to the DataSource property
gridControl1.DataSource = data
' Arrange and format the titles of the columns.
Dim nfi As New NumberFormatInfo()
nfi.NumberGroupSeparator = " "
gridControl1.Columns( 1 ).FormatProvider = nfi
gridControl1.Columns( 1 ).FormatSpecifier = "n0";
gridControl1.Columns( 0 ).Title = "Country"
gridControl1.Columns( 1 ).Title = "Population"
gridControl1.Columns( 2 ).Title = "Capital"
gridControl1.Columns( 3 ).Title = "Average Temperature"