for x = 6 to 15
var$ = "#pbse.statictext" + str$(x)
read stext$
statictext #pbse.tmp, stext$, 10, x*20, 100, 12
stylebits #pbse.tmp, _ES_RIGHT, 0, 0, 0
maphandle #pbse.tmp, var$
next x
open "Multiple Statictext" for window as #pbse
wait
data "Text six", "Text seven", "Text eight", "Text nine", "Text ten"
data "Text 11", "Text 12", "Text 13", "Text 14", "Text 15"
textbox #psc.tb01, 420, 30, 50, 20
textbox #psc.tb02, 420, 60, 50, 20
textbox #psc.tb03, 420, 90, 50, 20
textbox #psc.tb04, 420, 120, 50, 20
textbox #psc.tb05, 420, 150, 50, 20
textbox #psc.tb06, 420, 180, 50, 20
textbox #psc.tb07, 420, 210, 50, 20
textbox #psc.tb08, 420, 240, 50, 20
stylebits #psc.tb01, _ES_NUMBER, 0, 0, 0
stylebits #psc.tb02, _ES_NUMBER, 0, 0, 0
stylebits #psc.tb03, _ES_NUMBER, 0, 0, 0
stylebits #psc.tb04, _ES_NUMBER, 0, 0, 0
stylebits #psc.tb05, _ES_NUMBER, 0, 0, 0
stylebits #psc.tb06, _ES_NUMBER, 0, 0, 0
stylebits #psc.tb07, _ES_NUMBER, 0, 0, 0
stylebits #psc.tb08, _ES_NUMBER, 0, 0, 0
call tbNumberMH "#psc.tb", 8
...
sub tbNumberMH x$,lmt
for x = 1 to lmt
var$ = x$ + "0"+right$(str$(x),2)
textbox #psc.tmp, 420, 30*x, 50, 20
stylebits #psc.tmp, _ES_NUMBER, 0, 0, 0
maphandle #psc.tmp, var$
next x
end sub
for x = 1 to lmt
read x, y, w, h
textbox #psc.tmp, x, y, w, h
stylebits #psc.tmp, _ES_NUMBER, 0, 0, 0
var$ = x$ + "0"+right$(str$(x),2)
maphandle #psc.tmp, var$
next x