Dim query As String
query="SELECT materia FROM materias"
materias=DButils.ExecuteMemoryTable (Main.SQL,query,Null,0)
ListaDeMaterias.Initialize
For f=0 To materias.Size-1
Dim UnidadesTematicas() As String
UnidadesTematicas=materias.Get (f)
ListaDeMaterias.Add(UnidadesTematicas)
Next
InputMultiList (ListaDeMaterias, "Unidades temáticas a Leccionar ?")