|
WindowHeight = 700 for row = 1 to 20 textbox #w.tb, 10, row*30, 30, 20 maphandle #w.tb, "#w.tb1.";row textbox #w.tb, 50, row*30, 20, 20 maphandle #w.tb, "#w.tb2.";row textbox #w.tb, 80, row*30, 20, 20 maphandle #w.tb, "#w.tb3.";row next row open "Grid test" for window as #w for row = 1 to 20 h$ = "#w.tb1.";row #h$ str$(int(500*rnd(1))+1) h$ = "#w.tb2.";row #h$ str$(int(20*rnd(1))+1) h$ = "#w.tb3.";row #h$ str$(int(20*rnd(1))+1) next row wait