En este ejemplo se muestra cómo crear una lista personalizada o a través de una consulta a base de datos.
Sub Form_Load()
end sub
Sub Form_Activate()
'Ejemplo de lista pesonalizada
Controles("lstFuente").additem("Courier new")
Controles("lstFuente").additem("Arial")
Controles("lstFuente").additem("Times New Roman")
if lstFuente ="" then
lstFuente.Text = "Courier New"
end if
'Ejemplo de lista generada desde base de datos
Set rstCliente = CreaRecordSet( "SELECT * FROM clients ", Ambiente.Connection )
Set Clientes.RowSource = rstCliente
Clientes.listfield = "cliente"
end sub
