Public Sub SetColumnsWidths(Widths() As Int)
Dim v As View
For i = 0 To Widths.Length - 1
v = Header.GetView(i)
v.Width = Widths(i) - 1dip
If i > 0 Then
v.Left = Header.GetView(i-1).Left + Widths(i-1) + 1dip
End If
Next
Dim lbls() As Label
For i = 0 To visibleRows.Size - 1
lbls = visibleRows.GetValueAt(i)
For lbl = 0 To lbls.Length - 1
lbls(lbl).SetLayout(Header.GetView(lbl).Left, lbls(lbl).Top, _
Header.GetView(lbl).Width, RowHeight)
Next
Next
End Sub