For ii = 0 To NumberOfColumns - 1
Dim l As Label
l.Initialize("cell")
l.Text = Values(ii)
l.Gravity = Alignment
l.TextSize = FontSize
l.TextColor = FontColor
l.Color=CellColor
Dim rc As RowCol
rc.Initialize
rc.Col = ii
rc.Row = NumberOfRows
l.Tag = rc
totta=RowHeight * NumberOfRows
scvPersons.Panel.AddView(l, TotalColumnWidth(ii), totta, ColumnWidth_1(ii), RowHeight_1)
Next