dim f as string= "{0,15} {1,15}"
dim b, s ,i , t, te, tto as integer
im a() as string = {1, 2, 3, 4 ,5 ,6 ,7 ,8 ,9 ,10, 11, 12, 13, 14, 15, 16}
listbox1.items,add(" ") today.Date)
listbox1.items,add(" ")
listbox1.items,add("string.format(F, "Even NUMBERS", "ODD NUMBERS"))
listbox1.items.add("____")
For I = 0 to a.getupperbound (0) step 2