Hola!
ya encontré cual es el problema pero aun no entiendo por que me lo trae...
tengo este código en el userform que no me quiere mostrar:
Private Sub UserForm_Initialize()
Dim lngMyHandle As Long, lngCurrentStyle As Long, lngNewStyle As Long
'Obtenemos el "Handle" del Userform
lngMyHandle = FindWindow("THUNDERDFRAME", Me.Caption)
'Obtenemos el estilo actual del UserForm
lngCurrentStyle = GetWindowLong(lngMyHandle, GWL_STYLE)
'Creamos un nuevo estilo de titulo con los botones deseados
lngNewStyle = lngCurrentStyle Or WS_MINIMIZEBOX
'Aplicamos las nuevas propiedades al UserForm
SetWindowLong lngMyHandle, GWL_STYLE, lngNewStyle
end sub
en el momento que le agrego a la primera linea ("Private Sub UserForm_Initialize()") por ("Private Sub UserForm8_Initialize()"), ya no me aparece este error y me abre mi formulario, pero no me lo abre correctamente, pues no me trae el botón de Minimizar como se lo estoy diciendo en la instrucción del código.
me colaboras en como proceder?
Mil Gracias por tu interes!