Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("mainscr")
Table1.Initialize(Me, "Table1", 4)
Table1.AddToActivity(Activity, 0, 100dip, 100%x, 50%y)
Table1.SetHeader(Array As String("Col0", "Col1", "Col2", "Col3"))
For i = 0 To 5000
Table1.AddRow(Array As String("Row: " & i, "ccc", "ddd", "eee"))
Next
Table1.SetColumnsWidths(Array As Int(100dip, 30dip, 130dip, 100%x - 260dip))
AnotherDatePicker1.Show
End Sub