Sub Globals
Dim MyPanel As Panel
Dim MyTable As Table
end sub
Activity_Create(FirstTime As Boolean)
MyPanel.Initialize("MyPanel")
MyTable.Initialize(Me, "MyTable", 6)
Activity.AddView(MyPanel, 0, 230dip, 100%x, 60%y)
MyTable.AddToActivity(MyPanel, 0, 0, MyPanel.Width, MyPanel.Height)
MyTable.SetHeader(Array As String("xxxx xxxx", "xxxxxx", "xxx", "xxx", "xxxxxxxx", "xxx xxxxxx x", "xxxxx"))
MyTable.SetColumnsWidths(Array As Int(95dip, 70dip, 40dip, 70dip, 80dip, 80dip))