Problema al pasar el nombre de un form

[Fernando_net]

Hola a todos.

Veréis. Estoy encapsulando código y eliminando codigo redundante.

He creado un modulo que lo llaman 2 forms, ya que este modulo hará cosas que pueden afectar a estos dos forms pero, con un select case, selecciono el form que quiero que afecte.

Imaginad el siguiente ejemplo:

Formulario A (de nombre: guardar)
Formulario B (de nombre: eliminar)

El modulo se llama: escoge_form

Ahora llamo el modulo desde el formulario A y le paso su nombre

Código VB .NET:

private sub pasa_formularioA
     'voy al modulo y le paso el nombre del formulario
     escoge_form.escoge_form(1)
end sub
 

Lo mismo hago con el formulario B

Código VB .NET:

private sub pasa_formularioB
     'voy al modulo y le paso el caso que quiero
     escoge_form.escoge_form(2)
end sub
 

Entonces, el modulo tiene lo siguiente

Código VB .NET:

module escoge_form
     public sub escoge_form(byval caso as string)
          'declaramos para tener el nombre del formulario en una variable
          dim formulario as form
 
          'seleccionamos el nombre del formulario dependiendo del caso
          select case formulario
               case 1
                    formulario = formularioA.name
               case 2
                    formulario = formularioB.name
          end select
 
          'una vez con el nombre del formulario, hago un with para que afecte_
          '_a un formulario o otro
          with formulario
               .txt_observaciones = "Perfecto"
          end with
     end sub
end module
 

Pues claro, en el with falla, porque ".txt_observaciones" me marca error, ya que no forma parte. Cuando en verdad si que forma parte, lo que pasa es que el with no coge el nombre del form...

Tiene alguna solución este problema??

Muchas gracias