or (better),
If the names of the <b>buttons</b> are: b0,b1,b2,b3 ... and
as you have the texts of the buttons in the list:
dim i as integer
for i=0 to listproducts.items.count
ctype("b" & i , <b>Textbox</b>).Text=listproducts.items.item(i)
next
is this code good, because it doesnot work...