Sub Globals
'Declare the global variables here.
Dim size(7)
size() = Array (5,10,15,20,40,80,120)
End Sub
Sub App_Start
AddTable ("Form1", "table1", 0, 0, 240, 130)
table1.LoadXML (AppPath & "\" & "data.xml")
For i=0 To ArrayLen (size())-1
'table1.AddCol (cString, i, 1)
table1.ColWidth(table1.ColName(i)) = size(i)
Next
Form1.Show
'table1.SaveXML (AppPath & "\" & "data.xml")
End Sub