Pasar argumentos

[etxebe]

Hola a todos:

Tengo otra duda. Si creo un procedimiento, le puedo pasar los argumentos que quiera, vale. Pero, se le pueden pasar argumentos al evento "Form_Load"???
Es que tengo un formulario estandar, que dependiendo de donde se le llame quiero que su aspecto varie. Quisiera hacer algo asi:

Private sub Form_Load(tipo as String)
If Tipo=Tipo1 then
'Le doy un aspecto determinado
ElseIf Tipo=Tipo2
'Le doy otro aspecto
...(mejor hacerlo con un Case, pero el problema no es ese)
End sub

Y luego cargar el formulario:

Formulario_estandar.Show Tipo1

No se...pero me da error. Supongo que al form_load no se le pueden pasar argumentos. Una pena, porque hacerlo de esta manera seria lo mejor. Alguien tiene alguna idea de como hacer lo que me propongo?¿?¿

Gracias de antemano

Agur.