Change the field of a listbox

[#1]

Hi

I need to know how to change the field of a listbox?

I have this code in the module editor:

sub CrearListBox
set LB_TodosCampos = ActiveDocument.GetSheetObject("OTROS_LB_TodosCampos").GetField
seleccion = ActiveDocument.GetSheetObject("OTROS_LB_TodosCampos").GetRelevantSelections
if LB_TodosCampos.GetFieldFlags.HasSelection then
camposeleccionado = mid(seleccion(0),8,len(seleccion(0)))
if instr(1,camposeleccionado,",") = 0 and instr(1,camposeleccionado," De ") = 0 and instr(1,camposeleccionado,"*") = 0 then
set cogercamposeleccionado = ActiveDocument.GetField(camposeleccionado)
set ListBox = ActiveDocument.GetSheetObject("OTROS_LB_Valores")
set PropiedadesListBox = ListBox.GetProperties
PropiedadesListBox.Title.v = "VALORES " & camposeleccionado
.... add field...?
ListBox.SetProperties PropiedadesListBox
end if
end if
end sub