Dim headers(cols.Length) As String
Dim htipos (cols.Length) As Int
Dim hwidth (cols.Length) As Int
For i =0 To cols.Length-1
headers(i) = "Col" & (i+1)
htipos(i)=FlexGrid1.TypeString
hwidth(i)=80dip
Next
FlexGrid1.ClearRows
FlexGrid1.ColsType=htipos
FlexGrid1.ColsWidth=hwidth
FlexGrid1.ColsName=headers