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?
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
este código lo tengo en formulario pero quiero tenerlo en un Modulo para no estar repitiendo código en 4 formularios pero;
En el modulo coloque así
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?