sub main

  'poner las tres opciones al combo en caliente
  combo1.additem "Opcion 1"
  combo1.additem "Opcion 2"
  combo1.additem "Opcion 3"

end sub

sub Command1_Click
   'comprobar que hay un nombre escrito en el textbox
   if text1='"" then
      exit sub
   endif
   'comprobar que hay algo elegito en el combo
   if combo1.listindex=-1 then
      exit sub
   endif

tabla(combo1.listindex)=text1
end sub

sub command2_click
   for x%=0 to ubound(tabla(combo1.listindex))-1
      list1.additem tabla(x%)
   next x%
end sub