Asignar una instancia de una clase a otra desde dentro de la ultima clase

[raululm]

Me comentan que no está muy claro, así que lo expongo de otra forma. Tengo una clase llamada configuración, con unas propiedades públicas y 2 métodos "Guardar" y "Cargar" con el siguiente esquema:

Código vb:

Public class Configuracion
 
Public Usuario as String
Public RutaBD as String
 
Public Function Guardar() as Boolean
'Aquí serializo la clase, funciona Ok.
End Function
 
Public Function Cargar() as Boolean
'Esta es la rutina que me genera el problema, la intención es cargar la info del archivo
'en la misma instancia de la clase, con el siguiente código
Me = CType(seriador.Deserialize(fs), cConfiguracion)
'Genera error porque no se puede asignar nada a "Me"
End Function
 
End class
 

Pretendo que al iniciar la aplicación se genere una instancia de la clase "cConfiguración" llamada "Configuracion", cargar en ella los parámetros de configuración mediante el método "Cargar()" y cuando finalice la aplicación llamar al método "Guardar()" para guardar los posibles cambios en la configuración.

Código vb:

Public Configuracion as cConfiguracion
 
Public Sub IniciarAplicacion()
' Creo una instancia de la clase
Configuracion=new cConfiguracion
' Cargo la información en la instancia
Configuracion.Cargar()
End Sub
 
Public Sub MostrarUsuario()
MsgBox ("Usuario: " & Configuracion.Usuario)
End Sub
 
Public Sub CambiarUsuario(ByVal Usuario as String)
Configuracion.Usuario=Usuario
End Sub
 
Public Sub FinalizarAplicacion()
Configuracion.Guardar()
End Sub
 

Como os comento todo funciona Ok, excepto que no soy capaz de cargar la información en la misma instancia de la clase. Funciona si lo cargo en otra instancia, pero no en la misma.

Código vb:

' Sí que funciona:
Public Function Cargar() as Boolean
dim Configuracion2 as new cConfiguracion
Configuracion2 = CType(seriador.Deserialize(fs), cConfiguracion)
' El inconveniente es que así no me sirve, tendría que construir 
'el método de cargar la configuración externo a la definición de la clase.
End Function
 
'No funciona (y es lo que quiero conseguir)
Me = CType(seriador.Deserialize(fs), cConfiguracion)
 

¿Alguien me puede ayudar?

Un saludo a todos