Dim NumberOfColumns as Int : NumberOfColumns = 10
Dim ColumnName(NumberOfColumns) As String
Dim ColumnWidth(NumberOfColumns) As Int
.
.
For i = 0 To NumberOfColumns - 1
ColumnName(i) = something
ColumnWidth(i) = 50dip
Next
For i = 0 To NumberOfColumns - 1
.
Next
.
.
For i = 0 To NumberOfColumns - 1
.
Next