Spanish Al pasar funcion de b4A a b4i no funciona igual

[Edu Portu]

Buenos dias,

Tengo una funcion para crear botones con imagenes (ImageView):

Sub CreaBoton(Etiqueta As String, Evento As String, Izquierda As Int, Arriba As Int, Anchura As Int, PanelPadre As Panel) As ImageView
    Dim Titulo As Bitmap
    Dim IVTitulo As ImageView
    Titulo.Initialize(File.DirAssets, Etiqueta)
    IVTitulo.Initialize(Evento)
    IVTitulo.Bitmap = Titulo
    'IVTitulo.Gravity = Gravity.fill
    PanelPadre.AddView(IVTitulo, Izquierda, Arriba, Anchura, Titulo.Height*Anchura/Titulo.Width)
    Return IVTitulo
End Sub

en b4A la tenia en un modulo de codigo llamado funciones y la llamaba (desde las diferentes activities) de la siguiente manera:

funciones.CreaBoton("boton-historial.png", "btnHistorico", 10%x, 80%y, 80%x, pnlPrin)

funcionando perfectamente y saltando el evento btnHistorico_click al pinchar en la imagen.

Pero en b4i he probado y no funciona, crea el boton (ImageView) pero luego al pulsar no hace nada.

He probado a meter la funcion CreaBoton en el mismo modulo y si que funciona, hay alguna manera de tener la funcion CreaBoton en un modulo comun sin tener que copiarla en todos los modulos?

Saludos y gracias
Edu