'inicia una instancia y añade dominios en una línea Dim al As New Objetos.AlmacenDominios(New Objetos.Dominio() {New Objetos.Dominio("croketworld.com"), New Objetos.Dominio("dondominio.com")}) 'obtener un dominio del almacén Dim d As Objetos.Dominio = al.Obtener("croketworld.com") If (d IsNot Nothing) Then d.Habilitar(True) End If 'guardar la clase en un Stream en la memoria Dim ms As New IO.MemoryStream al.Guardar(ms) 'codifica los bytes del Stream en una cadena base64 Dim tx As String = Convert.ToBase64String( _ ms.ToArray) ms.Close() 'guardar el almacén como una cadena codificada en un archivo de texto Dim sw As New IO.StreamWriter("C:\almacen.txt", False) sw.Write(tx) sw.Close()