Codigo en Modulo para 4 formularios

[JoaoM]

este código lo tengo en formulario pero quiero tenerlo en un Modulo para no estar repitiendo código en 4 formularios pero;

'>------------------------------------------------------<    

    Dim lStyle As Long, hMenu As Long, mhWndForm As Long


    mhWndForm = FindWindow("ThunderDFrame", [COLOR="#FF0000"][B]Me[/B][/COLOR].Caption)

    lStyle = GetWindowLong(mhWndForm, -16)

    lStyle = lStyle And Not &HC00000

    SetWindowLong mhWndForm, -16, lStyle

    DrawMenuBar mhWndForm

    [COLOR="#FF0000"][B]Me[/B][/COLOR].Height = [COLOR="#FF0000"][B]Me[/B][/COLOR].Height - 18

'>------------------------------------------------------<[/CODE]

En el modulo coloque así

[CODE]Sub SinBarra(Formulario As UserForm)

Dim lStyle As Long, hMenu As Long, mhWndForm As Long
mhWndForm = FindWindow("ThunderDFrame", msforms.[COLOR="#FF0000"][B]Caption[/B][/COLOR])
lStyle = GetWindowLong(mhWndForm, -16)
lStyle = lStyle And Not &HC00000
SetWindowLong mhWndForm, -16, lStyle
DrawMenuBar mhWndForm
msforms.Height = msforms.Height - 18[/CODE]

y lo llamo desde cualquier formulario

Private Sub UserForm_Initialize() 'CARGA DEL FORMULARIO

SinBarra Me

Me manda error en lo rojo que dice; Error de copilacion. No se encontro el método o el dato miembro

Alguna solución para que desde un modulo cualquier de los 4 formularios tomen la llamada para si?

[joseapm6260]

Hola Joaom:

Porque no pruebas realmente a llamarlo con la instrucción "CALL" de la siguiente manera:

Private Sub UserForm_Initialize() 'CARGA DEL FORMULARIO

Call SinBarra

pruebalo y ya nos diras si te funciona.

Andrés

[Antoni]

Hola a todos:

En un módulo normal:

Sub SinBarra([COLOR=#ff0000][B]Formulario As Object[/B][/COLOR])

    Dim lStyle As Long, hMenu As Long, mhWndForm As Long

    mhWndForm = FindWindow("ThunderDFrame", [COLOR=#ff0000][B]Formulario[/B][/COLOR].Caption)

    lStyle = GetWindowLong(mhWndForm, -16)

    lStyle = lStyle And Not &HC00000

    SetWindowLong mhWndForm, -16, lStyle

    DrawMenuBar mhWndForm

    [COLOR=#ff0000][B]Formulario[/B][/COLOR].Height = [COLOR=#ff0000][B]Formulario[/B][/COLOR].Height - 18

End Sub

[/CODE]

y en cada formulario, en el evento [i][b]Initialize [/b][/i]o [i][b]Activate[/b][/i]:

[CODE]SinBarra Me[/CODE]

Saludos

[JoaoM]

Hola Macro

Editado

Gracias pepafg

Agradecido Macro Antonio, Muy bien, resuelto

Tema Solucionado