Listbox+styling

A listbox can be styled using Run BASIC SETID method.
code format="html4strict" cssid #lbStyle,"{         width:250px;          height:100px;          border-style:inset;          border-width:15px;          background-color:lightblue;          font-family:arial;          font-size:14pt;          }" dim a$(10) a$(1)="Oranges" a$(2)="Apples" a$(3)="Pears" a$(4)="Bananas" a$(5)="Lemons" a$(6)="Pineapples" a$(7)="Grapes" a$(8)="Close" selected$="" [start] listbox #lb,a$,10 print " " link #sel, "[Accept]",[select] wait [select] selected$=#lb selection$ print " " if selected$<>"" then print "You selected ";selected$ else print "No selection made" end if link #con, "[Continue]",[go2] wait [go2] if selected$<>"Close" then cls goto [start] else cls end end if code
 * 1) lb setid("lbStyle")